anchor.diff: -a;;;; Lisqp scanner
  +;;;; Lisqp scanner
   ;;;; Author: Augustus Huang
   ;;;; Date: May 27, 2015
   
  
positive.code: 		 (setf in-denominator-p t))
  		(t
  		 (return-from scan-ratio)))))))))
  
  (defun scan-int (token)
    "Scan next token as it was an integer."
  
negative.code:   (set-scan-dispatch-macro-character #\# #\A 'scan-array *scan-table*)
    (set-scan-dispatch-macro-character #\# #\| 'scan-big-comment *scan-table*)
    (make-scan-dispatch-macro-character #\% t *scan-table*)
    (set-scan-dispatch-macro-character #\% #\' 'scan-quantum-function *scan-table*))
  