anchor.diff:      
       (when
           (cond (require-trailing-dot
  -               (cond ((decimal-dot-p (car token))
  -                      (pop token)
  -                      (not token))
  -                     (t nil)))
  +               (eat-dot token))
                 (t (not token)))
         (make-integer sign (reverse digits) radix))))
   
  
positive.code:                     (digit-char-p (car digits))))
         (pop digits))))
  
  (defun radix-integer-token-p (token radix require-trailing-dot)
    (let ((sign nil)
          (digits nil))
      (when (signp (car token))
        (setq sign (car token))
        (pop token))
      (loop
         (cond ((not token)
                (return t))
               ((not (digit-char-p (car token) radix))
  
negative.code:         (minor-digits nil)
          (exponent nil))
      ;; read an optional sign
      (maybe-eat-sign sign token)
      ;; read zero or more decimal digits
  
      
  