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