anchor.diff: -a;;;; Lisqp scanner
  +;;;; Lisqp scanner
   ;;;; Author: Augustus Huang
   ;;;; Date: May 27, 2015
   
  
positive.code:       ;; Return a symbol immediately if a package marker was seen.
        (seen-escape
         (intern token))
        (t (or (read-integer token)
  	     (read-ratio token)
               (intern token))))))
  
  (defun scan-left-parenthesis (stream ignore)
  
negative.code: 	  (t
  	   nil))))
  
  (defun scan-ratio (token)
    "Scan next token as it was a ratio number."
    (let ((negative-p nil)
  