anchor.diff:                        (progn
   						(skip-comment str)
   						(rec))
  -                      (when (is-symchar? c)
  +                      (when (symbol-char? c)
                           (cons (char-upcase (read-char str))
                                 (rec)))))))
     (unless (or (end-of-file str)
  -			  (is-special-char? (peek-char str)))
  +			  (special-char? (peek-char str)))
       (rec))))
   
   (defun get-symbol-and-package (str)
  
positive.code: 	(read-expr str)))
  
  (defun read-all (str)
    "Read many toplevel expressions from stream."
    (unless (progn
  			(skip-spaces str)
  			(end-of-file str))
  
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)
  