anchor.diff:                   (acl-socket:ipaddr-to-dotted (socket:remote-host conn)))
                (socket:remote-port conn)))
        conn)
  -   #+mcl
  +   #+digitool
      (let* ((s (listener-stream socket))
             (state (and s (ccl::opentransport-stream-connection-state s)))
             (new nil))
  
positive.code:    "localhost"
     #+clisp
     (socket-server-host socket)
     #+(and mcl (not use-acl-socket))
     (let ((host (ccl::stream-local-host (listener-stream socket))))
       (handler-case
         (ccl::inet-host-name host)
  
negative.code:    (with-output-to-string (out)
       (shell-to-stream command out))
  
     #+clorb::mcl-bsd
     (bsd:system-command command)
  
     #+clorb-mcl-task-evaluator
  