anchor.diff:     ;; default
      (close socket)))
   
  + 
   ;;;; HTTP GET
   
  
positive.code:       (error "No system dependent code to ~A" desc))
    (car forms))
  
  
  ;;;; TCP/IP sockets implementation glue
  
  
negative.code:                  (acl-socket:ipaddr-to-dotted (socket:remote-host conn)))
               (socket:remote-port conn)))
       conn)
  
     #+openmcl
     (let ((conn (openmcl-socket:accept-connection socket :wait blocking)))
       (when conn
         (mess 4 "Accepting connection ~S" conn)
         #+(or)
         (mess 4 "Accepting connection from ~A:~D"
               (let ((host (openmcl-socket:remote-host conn)))
                 (or (ignore-errors
                       (openmcl-socket:ipaddr-to-hostname host))
                     (openmcl-socket:ipaddr-to-dotted host)))
               (openmcl-socket:remote-port conn)))
       conn)
  
     #+digitool
     (let* ((s (listener-stream socket)))
       (when (and s blocking)
  