anchor.diff:            (with-temporary *default-listprop* *default-listprop*
   	        (with ((token pkg sym) (read-token str))
   	          (? (eq 'dot token)
  -		         (with (x (read-expr str)
  +		         (with (x               (read-expr str)
   				        (token pkg sym) (read-token str))
   		           (| (%read-closing-bracket? token)
   			          (error "Only one value allowed after dotted cons."))
  
positive.code:           #\' #\` #\, #\: #\; #\" #\# #\^))
  
  (defun symbol-char? (x)
    (& (> x 32) (not (special-char? x))))
  
  (defun skip-comment (str)
    (let c (read-char str)
  
negative.code:          (read-atom str token pkg sym)))))
  
  (defun read (&optional (str *standard-input*))
    (skip-spaces str)
    (unless (end-of-file? str)
  	(read-expr str)))
  
  (defun read-all (str)
    (unless (progn
  	        (skip-spaces str)
  	        (end-of-file? str))
  