anchor.diff:     #+clisp 
      (when (ext:socket-wait socket (if blocking 10 0))
        (let* ((conn (ext:socket-accept socket 
  -                                 :element-type '(unsigned-byte 8))))
  +                                 :element-type '(unsigned-byte 8) :buffered nil)))
          (mess 4 "Accepting connection from ~A"
                (ext:socket-stream-peer conn))
          conn))
  
positive.code: 
  
  (defun cpp-command-string (file include-directories &optional defines)
    ;; FIXME: add support for defines
    (format nil
            #-MCL "cpp~{ -I'~A'~}~{ -D'~A'~} '~A'"
            ;; apples /usr/bin/cpp is buggy
  
negative.code:               #+(or)
                (ccl::inet-host-name host))
              (ccl::stream-remote-port conn))
      #+clisp
      (values (ext:socket-stream-host conn)
              (ext:socket-stream-port conn))
     
     ;; Default
     nil ))
  