anchor.diff:  	(read-expr str)))
   
   (defun read-all (str)
  -  "Read many toplevel expressions from stream."
  +  "Read all expressions from stream."
     (unless (progn
   			(skip-spaces str)
   			(end-of-file str))
  
positive.code: 	(values (? (and sym
  					(not .sym)
  			        (= #\. sym.))
  		       'dot
  		       (? sym
  			      'symbol
  			      (case (read-char str)
  			        #\(	 'bracket-open
  			        #\)	 'bracket-close
  
negative.code:   (case token
      'dblquote  (get-string str)
      'char      (code-char (read-char str))
      'number    (with-stream-string s (list-string sym)
                   (read-number s))
      'hexnum    (read-hex str)
  	'function  `(function ,(read-expr str))
      'symbol    (make-symbol (list-string sym)
  