anchor.diff:                         (when (is-symchar? c)
                            (cons (char-upcase (read-char str))
                                  (rec)))))))
  -  (unless (end-of-file str)
  +  (unless (or (end-of-file str)
  +			  (is-special-char? (peek-char str)))
       (rec))))
   
   (defun get-symbol-and-package (str)
  
positive.code: (defun token-is-quote? (x)
    (in? x 'quote 'backquote 'quasiquote 'quasiquote-splice))
  
  (defun is-symchar? (x)
    (and (> x 32)
  	   (not (in=? x #\( #\) #\' #\` #\, #\" #\: #\; #\#))))
  
  (defun skip-comment (str)
    (with (c (read-char str))
  
negative.code: 			          (#\'	'quote)
  			          (#\`	'backquote)
  			          (#\"	'dblquote)
  			          (#\,	(if (= #\@ (peek-char str))
  						        (and (read-char str)
  							         'quasiquote-splice)
  						        'quasiquote))
  