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:                                               :initial-element #\space
                                                :adjustable t :fill-pointer 0)
                     :for ch = (getchar scanner)
                     :while (unquoted-string-char-p ch)
                     :do (vector-push-extend ch string (length string))
                     :finally (progn
                                (ungetchar scanner ch)
  