anchor.diff:       (not (member state '(:outcon :dataxfer))))
   
      ;; Default, assume it is not closed
  -   nil))
  +   (null stream)))
   
   
   ;; Check if input is directly available on (socket) stream
  
positive.code:    (second socket)
  
     #+clisp
     (if socket (ext:socket-server-port socket) *port*)
  
     #+(or Allegro use-acl-socket)
     (socket:local-port socket)
  
negative.code:              (namestring pathname))
             ;; Default
             (namestring pathname)))
  
  
  (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
            #+MCL "cpp~{ -I\"'~A'\"~}~{ -D'~A'~} \"'~A'\""
            (mapcar #'external-namestring include-directories)
            defines
            (external-namestring file)))
  