anchor.diff:                 (not (all-dots-p token))) ; We got a token, let's parse it.
              (values nil (list
                           (multiple-value-bind (okp object)
  -                            (funcall (readtable-parse-token *readtable*) token)
  +                            (let ((*input-stream* input-stream))
  +                              (funcall (readtable-parse-token *readtable*) token))
                             (if okp
                                 object
                                 (serror 'simple-reader-error input-stream
  
positive.code:            "SET-INDIRECT-MACRO-CHARACTER"
             "LIST-ALL-MACRO-CHARACTERS"
             "SIMPLE-READER-ERROR" "SIMPLE-END-OF-FILE"
             ;; Utilities:
             "POTENTIAL-NUMBER-P")
    (:DOCUMENTATION
  
negative.code: 
  
  
  (define-condition simple-reader-error   (simple-error reader-error) ())
  (define-condition simple-end-of-file    (simple-error end-of-file)  ())
  
  (define-condition missing-package-error (reader-error)
    ((package-name :initarg :package-name)))
  
  (define-condition symbol-in-missing-package-error (missing-package-error)
    ((symbol-name :initarg :symbol-name)))
  
  (defun serror (condition stream control-string &rest arguments)
    (error condition
  