anchor.diff:         (setf (sb-bsd-sockets:non-blocking-mode socket) before)))
   
      #+clisp 
  -   (when (socket-wait socket (if blocking 10 0))
  -     (let* ((conn (socket-accept socket 
  +   (when (ext:socket-wait socket (if blocking 10 0))
  +     (let* ((conn (ext:socket-accept socket 
                                    :element-type '(unsigned-byte 8))))
          (mess 4 "Accepting connection from ~A"
  -             (socket-stream-peer conn))
  +             (ext:socket-stream-peer conn))
          conn))
   
      #+(or allegro use-acl-socket)
  
positive.code:    "localhost"
  
     #+clisp
     (socket-server-host socket)
  
     #+(and digitool (not use-acl-socket))
     (let ((host (ccl::stream-local-host (listener-stream socket))))
  
negative.code:    (second socket)
  
     #+clisp
     (if socket (ext:socket-server-port socket) *port*)
  
     #+(or Allegro use-acl-socket)
     (socket:local-port socket)
  