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