anchor.diff:      (let c (peek-char str)
         (when (== #\; c)
           (skip-comment str))
  -      (when (& (< c 33) (>= c 0))
  +      (when (& (< c 33)
  +               (>= c 0))
           (read-char str)
           (skip-spaces str)))))
   
  
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))
  