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