anchor.diff:                #+(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 ))
  
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:      (error "Dummy TCP cannot connect")
  
       #+clisp 
       (ext:socket-connect port host :element-type type :buffered nil) 
  
       #+clorb::cmucl-sockets
       (system:make-fd-stream (ext:connect-to-inet-socket host port)
  