anchor.diff:        )
   
       (make-dispatch-macro-character #\% t)
  -    (multiple-value-bind (f nt) (get-macro-character #\%)
  -      #+(or sbcl cmu ccl)
  +    (multiple-value-bind (fn nt) (get-macro-character #\% *readtable*)
  +      #+(or sbcl cmu ccl ecl)
         (assert-eql (values (get-macro-character #\# #1#) t)
  -                  (values f nt))
  +                  (values fn nt))
         #+clisp
  -      (assert-eql (values t t) (values (functionp f) nt))
  +      (assert-eql (values t t) (values (functionp fn) nt))
         )
   
       (remove-dispatch-macro-character #\$)
       (remove-dispatch-macro-character #\%)
   
  -    (multiple-value-bind (f nt) (get-macro-character #\$)
  -      (assert-eql (values nil nil) (values f nt)))
  +    (multiple-value-bind (f nt) (get-macro-character #\$ *readtable*)
  +      (assert-eql (get-macro-character #\$ #1#) (values f nt)))
   
  -    (multiple-value-bind (f nt) (get-macro-character #\%)
  -      (assert-eql (values nil nil) (values f nt)))))
  +    (multiple-value-bind (f nt) (get-macro-character #\% *readtable*)
  +      (assert-eql (get-macro-character #\% #1#) (values f nt)))))
   
   (define-test #:remove-dispatch-macro-character.saved-readtable
     (let ((rt #1=(copy-readtable nil)))
  
positive.code:     (make-dispatch-macro-character #\$ nil rt)
  
      (multiple-value-bind (f nt) (get-macro-character #\$ rt)
        #+(or sbcl cmu ccl)
        (assert-eql (values (get-macro-character #\# #1#) nil)
                    (values f nt))
        #+clisp
  
negative.code:   (let ((*readtable* #1=(copy-readtable nil)))
  
      (make-dispatch-macro-character #\$ nil)
      (multiple-value-bind (f nt) (get-macro-character #\$ *readtable*)
        #+(or sbcl cmu ccl ecl)
        (assert-eql (values (get-macro-character #\# #1#) nil)
                    (values f nt))
        #+clisp
  