anchor.diff:              (multiple-value-bind (dot token)
                   (eat-dot token)
                 (when (and dot (not token))
  -                (make-integer sign (reverse digits) 10))))))
  +                (make-integer sign 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*))))))
  +            (make-integer sign digits *read-base*))))))
   
   (defun float-token-method-1-p (token)
     (let ((sign nil)
  
positive.code:     (if digit
          (multiple-value-bind (digits token)
              (eat-zero-or-more-digits token radix)
            (values (append digits (list digit))
                    token))
          (values nil token))))
  
  
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)
  