#+sbcl

 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require '#:sb-simple-streams))

 
 (rename-package 'acl-compat.mp 'acl-compat.mp
                 (union '(mp) (package-nicknames 'acl-compat.mp)))
 (rename-package 'acl-compat.excl 'acl-compat.excl
                 (union '(excl) (package-nicknames 'acl-compat.excl)))
 
 (in-package #:socket)

 (import 'cl+ssl)

 (export 'make-ssl-client-stream)

 (export 'make-ssl-server-stream)

 
 (in-package #:cl-user)
 #+sbcl
 (unintern 'read-sequence)
 #+sbcl
 (import 'sb-simple-streams:read-sequence)
 

 (in-package #:acl-compat.excl)

 ;; From PJB's cesarum.utility
 (defmacro while (condition &body body)
   "While loop."
   `(do () ((not ,condition))  ,@body))
 (defmacro until (condition &body body)
   "Until loop."
   `(do () (,condition)        ,@body))
 (defvar match-re)
 (setf (symbol-function 'match-re) (symbol-function 'match-regexp))
 (export '(while until match-re))