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