anchor.diff:  (defun whitespacep (char)
     (or (char= char #\Space)
         (char= char #\Tab)))
  +
  +
  +(defvar *warn-unknown-pragma* t)
   
   (defun parse-cpp-line (cpp line)
     (setq line (read-cpp-continuation-lines cpp line))
  
positive.code:                            (version (ident)))
                        (push (list :version name version)
                              (cpp-pragma-list cpp))))
                     (t (warn "Unknown pragma: ~S" line))))
              (t
               (warn "Uk#: ~S" line))))))
  
  
  
  
negative.code: 
  ;;;; Run the system cpp command
  
  
  (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)))
  