anchor.diff:     (eq t (ext:read-byte-lookahead stream))
      ;;(not (ext:read-byte-will-hang-p stream))
      #+clisp t                            ;Ouch!
  +
  +   #+CCL
  +   (or (listen stream)
  +       (ccl:stream-eofp stream)
  +       (socket-stream-closed-p stream))
   
      ;; Default
      (listen stream))) 
  
positive.code: 
  ;;;; Multi process support
  
  (defun start-process (options proc &rest args)
    (declare (ignorable options))
    (%SYSDEP
  
negative.code:              (socket:remote-port conn)))
       conn)
     #+digitool
     (let* ((s (listener-stream socket)))
       (when (and s blocking)
         (flet ((ready-p (s)
                  (not (eql (ccl::opentransport-stream-connection-state s) :unbnd))))
           (unless (ready-p s)
             (ccl:process-wait "waiting" #'ready-p s))))
  
       (let ((state (and s (ccl::opentransport-stream-connection-state s)))
             (new nil))
         
         (when (member state '(:incon :dataxfer))
           (mess 3 "Accepting connection ~S" s)
           (setq new s
                 state nil))
         (when (member state '(nil :uninit :closed))
           (mess 3 "New listener replacing ~S" s)
           (or (mcl-listener-port socket)
               (error "MCL OpenTransport needs explicit port number for listener socket"))
           (setf (listener-stream socket)
                 (ccl::open-tcp-stream nil (mcl-listener-port socket) 
                                       :element-type '(unsigned-byte 8)
                                       :reuse-local-port-p t)))
         new))))
  
  
  
  (defun socket-stream-closed-p (stream)
    (%SYSDEP
  