anchor.diff:  	(values (? (& sym
                     (not .sym)
                     (== #\. sym.))
  -		         'dot
  +		       'dot
   		       (? sym
                     (? (list-number? sym)
                        'number
   			         'symbol)
  -			      (case (read-char str)
  +			      (case (read-char str) :test #'character==
   			        #\(	 'bracket-open
   			        #\)	 'bracket-close
   			        #\[	 'square-bracket-open
  
positive.code: 			        #\,	 (? (== #\@ (peek-char str))
  				            (& (read-char str) 'quasiquote-splice)
  				            'quasiquote)
  			        #\#	(case (read-char str)
  				          #\\  'char
  				          #\x  'hexnum
  				          #\'  'function
  
negative.code:                       (make-package (list-string pkg)))))))
  
  (defun read-atom (str token pkg sym)
    (case token :test #'eq
      'dblquote  (read-string str)
      'char      (code-char (read-char str))
      'number    (with-stream-string s (list-string sym)
  