anchor.diff:    (if (find-package "EXT")
         (pushnew :clisp-ext *features*))
     #+clisp
  -  (pushnew :clisp-new-socket-status *features*))
  +  (pushnew :clisp-new-socket-status *features*)
  +  #+openmcl
  +  (pushnew :use-acl-socket *features*))
   
   
   ;;; The :sockets (db-sockets) library can be used in CMUCL or SBCL:
  
positive.code:      (force-output stream)
       count)
  
     #+mcl
     (progn
       (loop for i from start below end
           do (write-byte (aref seq i) stream))
  
negative.code: 
  ;;;; TCP/IP sockets implementation glue
  
  #+(and mcl (not openmcl))
  (require "OPENTRANSPORT")
  
  #+(and mcl (not openmcl))
  (defclass mcl-listner-socket ()
    ((port :initarg :port :accessor mcl-listener-port)
     (stream :initform nil :accessor listener-stream)))
  