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