anchor.diff:  	  (t
   	   nil))))
   
  -;;; With reversible computations, it seems that there's no need to introduce
  -;;; floating point numbers --- May 29, 2015, Augustus
  -;;; Don't evaluate to themselves but make qubits!
   (defun scan-ratio (token)
     "Scan next token as it was a ratio number."
     (let ((negative-p nil)
  
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*))
  