anchor.diff:                          (accept 'symbol sym)
                           (reject t "There is no external symbol named ~S in ~
                                  the package named ~S" sname pname))))
  -              (reject t "There is no package with name ~S" pname)))
  +              (accept 'symbol
  +                      (restart-case (error 'symbol-in-missing-package-error
  +                                           :stream *input-stream* :package-name pname :symbol-name sname)
  +                        (intern-here (&rest rest)
  +                          :report "Intern the symbol in the current package, instead"
  +                          (declare (ignore rest))
  +                          (intern sname))
  +                        (return-uninterned (&rest rest)
  +                          :report "Return an uninterned symbol, instead"
  +                          (declare (ignore rest))
  +                          (make-symbol sname))))))
           ;; no colon in token, let's just intern the symbol in the current package :
           (accept 'symbol (intern (token-text token) *package*)))))
   
  
positive.code:            "SET-INDIRECT-MACRO-CHARACTER"
             "LIST-ALL-MACRO-CHARACTERS"
             "SIMPLE-READER-ERROR" "SIMPLE-END-OF-FILE"
             ;; Utilities:
             "POTENTIAL-NUMBER-P")
    (:DOCUMENTATION
  
negative.code:                (not (all-dots-p token))) ; We got a token, let's parse it.
             (values nil (list
                          (multiple-value-bind (okp object)
                              (let ((*input-stream* input-stream))
                                (funcall (readtable-parse-token *readtable*) token))
                            (if okp
                                object
                                (serror 'simple-reader-error input-stream
  