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