anchor.diff:  			        #\,	 (? (== #\@ (peek-char str))
   				            (& (read-char str) 'quasiquote-splice)
   				            'quasiquote)
  -			        #\#	(case (read-char str)
  +			        #\#	(case (read-char str) :test #'character==
   				          #\\  'char
   				          #\x  'hexnum
   				          #\'  'function
  
positive.code:   (| token (error "Missing closing bracket."))
    (unless (%read-closing-bracket? token)
      (. (with-temporary *default-listprop* *default-listprop*
           (case token
             'bracket-open        (read-cons-slot str)
             'square-bracket-open (. 'square (read-cons-slot str))
             'curly-bracket-open  (. 'curly (read-cons-slot str))
  
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)
  