anchor.diff:    (let ((digits nil))
       (loop
          (cond ((not token)
  -              (return (values digits token)))
  +              (return (values (reverse digits) token)))
                ((digit-char-p (car token) radix)
                 (push (car token) digits)
                 (pop token))
                (t
  -              (return (values digits token)))))))
  +              (return (values (reverse digits) token)))))))
   
   (defun eat-one-or-more-digits (token radix)
     (multiple-value-bind (digit token)
  
positive.code:             (multiple-value-bind (dot token)
                  (eat-dot token)
                (when (and dot (not token))
                  (make-integer sign (reverse digits) 10))))))
        (multiple-value-bind (sign token)
            (maybe-eat-sign token)
          (multiple-value-bind (digits token)
              (eat-one-or-more-digits token *read-base*)
            (when (and digits (null token))
              (make-integer sign (reverse digits) *read-base*))))))
  
  (defun float-token-method-1-p (token)
    (let ((sign nil)
  
negative.code:     (if digit
          (multiple-value-bind (digits token)
              (eat-zero-or-more-digits token radix)
            (values (cons digit digits)
                    token))
          (values nil token))))
  
  