anchor.diff:  
   ;;;; Run the system cpp command
   
  -;; FIXME: add support for defines
  -
  -(defun cpp-command-string (file include-directories)
  -  (format nil "cpp~{ -I'~A'~} '~A'"
  -          (mapcar #'external-namestring include-directories)
  -          (external-namestring file)))
  -
  -
  -(defun using-cpp-stream (file function &key include-directories)
  -  (let ((s (shell-to-string (cpp-command-string file include-directories))))
  +
  +(defun using-cpp-stream (file function &key include-directories defines)
  +  (let ((s (shell-to-string (cpp-command-string file include-directories defines))))
       (with-input-from-string (in s)
         (let ((cpp (make-instance 'preprocessed-stream
                      :cpp-stream in)))
  
positive.code: (defun whitespacep (char)
    (or (char= char #\Space)
        (char= char #\Tab)))
  
  (defun parse-cpp-line (cpp line)
    (setq line (read-cpp-continuation-lines cpp line))
  
negative.code:                            (version (ident)))
                        (push (list :version name version)
                              (cpp-pragma-list cpp))))
                     ((match "GCC"))      ; known system specific pragma
                     (*warn-unknown-pragma*
                      (warn "Unknown pragma: ~S" line))))
              (t
               (warn "Unknown preprocessor directive: ~S" line))))))
  
  
  
  