anchor.diff:       (not (member state '(:outcon :dataxfer))))
   
      ;; Default, assume it is not closed
  -   nil))
  +   (null stream)))
   
   
   ;; Check if input is directly available on (socket) stream
  
positive.code:    (second socket)
  
     #+clisp
     (if socket (ext:socket-server-port socket) *port*)
  
     #+(or Allegro use-acl-socket)
     (socket:local-port socket)
  
negative.code:     (pushnew 'clorb::mcl-bsd *features*)
      (cond ((find-package "BSD"))
            ((find-package "NET.CDDR.PACKER")
             (funcall (intern "REQUIRE-PACKAGE" "NET.CDDR.PACKER") "BSD"))
            (t
             (require "BSD")))))
    
  