anchor.diff:    (%SYSDEP
      "add stream to select"
   
  -   #+clisp-new-socket-status
  +   #+clorb::clisp-new-socket-status
      (length (push
                (cons stream
                 (cond ((not input)  :output)
  
positive.code: #+(or cmu sbcl)
  (eval-when (:compile-toplevel :load-toplevel)
    (cond ((find-package "SOCKETS")
           (pushnew :db-sockets *features*))
          ((find-package "SB-BSD-SOCKETS")
           (pushnew :sb-bsd-sockets *features*))
          (t
           #+cmu (pushnew :cmucl-sockets *features*)
           #+sbcl (error "We need the SOCKETS library; SBCL doesn't have its own"))))
  
  
  
negative.code: (eval-when (:compile-toplevel :execute)
    #+clisp
    (if (find-package "EXT")
        (pushnew 'clorb::clisp-ext *features*))
    #+clisp
    (pushnew 'clorb::clisp-new-socket-status *features*)
    #+openmcl
    (pushnew :use-acl-socket *features*)
    #+digitool
    (when (find-package "BSD")
      (pushnew 'clorb::mcl-bsd *features*)))
    
  
  
  