anchor.diff:  
   ;; (test/scan-file  #P"~/works/abalone-macosx/Abalone-10.7/Abalone.xcodeproj/project.pbxproj")
   
  -(with-open-file (stream #P"~/works/abalone-macosx/Abalone-10.7/Abalone.xcodeproj/project.pbxproj")
  - (parse-pbxproj  stream))
  +(defun read-pbxproj (path)
  +  (with-open-file (stream path)
  +    (parse-pbxproj  stream)))
  +
  +;; (read-pbxproj #P"~/works/abalone-macosx/Abalone-10.7/Abalone.xcodeproj/project.pbxproj")
  +
  
positive.code:               ((#\/)
                 (getchar scanner)
                 (if (char= #\* (nextchar scanner))
                     (progn
                       (getchar scanner) 
                       (loop
                         :named :eat-comment
  
negative.code: 
  (defun eofp (object) (null object))
  (defvar *eof* nil)
  
  (defun unquoted-string-char-p (ch)
     (or (alphanumericp ch) (find ch ".$_/")))
  
  (defmethod scan-next-token ((scanner pbxproj-scanner) &optional parser-data)
    (declare (ignore parser-data))
  