anchor.diff:  
   (defun read-expr (str)
     (with ((token pkg sym) (read-token str))
  -    (case token
  +    (case token :test #'eq
         nil                   nil
         'eof                  nil
         'bracket-open         (read-cons-slot str)
  
positive.code: 	(values (? (& sym
                    (not .sym)
                    (== #\. sym.))
  		         'dot
  		       (? sym
                    (? (list-number? sym)
                       'number
  			         'symbol)
  			      (case (read-char str)
  			        #\(	 'bracket-open
  			        #\)	 'bracket-close
  			        #\[	 'square-bracket-open
  
negative.code:   (| token (error "Missing closing bracket."))
    (unless (%read-closing-bracket? token)
      (. (with-temporary *default-listprop* *default-listprop*
           (case token :test #'eq
             'bracket-open        (read-cons-slot str)
             'square-bracket-open (. 'square (read-cons-slot str))
             'curly-bracket-open  (. 'curly (read-cons-slot str))
  