anchor.diff:      (make-dispatch-macro-character #\% t rt)
   
       (multiple-value-bind (f nt) (get-macro-character #\% rt)
  -      #+(or sbcl cmu ccl)
  +      #+(or sbcl cmu ccl ecl)
         (assert-eql (values (get-macro-character #\# #1#) t)
                     (values f nt))
         #+clisp (assert-eql (values t t) (values (functionp f) nt))
  
positive.code:     (unset-macro-character #\[ rt)
  
      (multiple-value-bind (f nt) (get-macro-character #\[ rt)
        (assert-eql (values nil nil) (values f nt)))))
  
  
  (define-test #:unset-dispatch-macro-character.current
  
negative.code:       )
  
      (make-dispatch-macro-character #\% t)
      (multiple-value-bind (fn nt) (get-macro-character #\% *readtable*)
        #+(or sbcl cmu ccl ecl)
        (assert-eql (values (get-macro-character #\# #1#) t)
                    (values fn nt))
        #+clisp
        (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 #\$ *readtable*)
        (assert-eql (get-macro-character #\$ #1#) (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)))
  