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:     (let c (peek-char str)
        (when (== #\; c)
          (skip-comment str))
        (when (& (< c 33) (>= c 0))
          (read-char str)
          (skip-spaces str)))))
  
  
negative.code: 
  (defun read-token (str)
    (with ((pkg sym) (get-symbol-and-package str))
  	(values (? (& sym
                    (not .sym)
                    (== #\. sym.))
  		         'dot
  		       (? sym
                    (? (every [| (digit-char? _)
  