anchor.diff:      (if digit
           (multiple-value-bind (digits token)
               (eat-zero-or-more-digits token radix)
  -          (values (append digits (list digit))
  +          (values (cons digit digits)
                     token))
           (values nil 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:   (let ((digits nil))
      (loop
         (cond ((not token)
                (return (values (reverse digits) token)))
               ((digit-char-p (car token) radix)
                (push (car token) digits)
                (pop token))
               (t
                (return (values (reverse digits) token)))))))
  
  (defun eat-one-or-more-digits (token radix)
    (multiple-value-bind (digit token)
  