anchor.diff:  (eval-when (:compile-toplevel :execute)
     #+clisp
     (if (find-package "EXT")
  -      (pushnew :clisp-ext *features*))
  +      (pushnew 'clorb::clisp-ext *features*))
     #+clisp
  -  (pushnew :clisp-new-socket-status *features*)
  +  (pushnew 'clorb::clisp-new-socket-status *features*)
     #+openmcl
     (pushnew :use-acl-socket *features*)
  -  #+(and MCL (not openmcl))
  +  #+digitool
     (when (find-package "BSD")
  -    (pushnew :clorb-mcl-bsd *features*)))
  +    (pushnew 'clorb::mcl-bsd *features*)))
     
   
   
  
positive.code:   (%SYSDEP
     "add stream to select"
  
     #+clisp-new-socket-status
     (length (push
               (cons stream
                (cond ((not input)  :output)
  
negative.code:                  (acl-socket:ipaddr-to-dotted (socket:remote-host conn)))
               (socket:remote-port conn)))
       conn)
     #+digitool
     (let* ((s (listener-stream socket))
            (state (and s (ccl::opentransport-stream-connection-state s)))
            (new nil))
  