anchor.diff:  
   (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))
  
positive.code:                (getchar scanner)
                 (scan-next-token scanner))
                (otherwise
                 (if (or (alphanumericp ch) (char= ch #\.))
                     (scan-unquoted-string scanner)
                     (progn
                       (getchar scanner) ; let's eat it so that error recovery skips it.
  
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)
  