anchor.diff:           (read-atom str token pkg sym)))))
   
   (defun read (&optional (str *standard-input*))
  -  "Read expression from stream."
     (skip-spaces str)
     (unless (end-of-file? str)
   	(read-expr str)))
   
   (defun read-all (str)
  -  "Read all expressions from stream."
     (unless (progn
   	        (skip-spaces str)
   	        (end-of-file? str))
  
positive.code: 
  (defun read-token (str)
    (with ((pkg sym) (get-symbol-and-package str))
  	(values (? (& sym (not .sym) (== #\. sym.))
  		         'dot
  		       (? sym
                    (? (every [| (digit-char? _)
  
negative.code:     (let c (peek-char str)
        (when (== #\; c)
          (skip-comment str))
        (when (& (< c 33)
                 (>= c 0))
          (read-char str)
          (skip-spaces str)))))
  
  