anchor.diff:        (assert-eql (values nil nil) (values f nt)))))
   
   
  -(define-test unset-dispatch-macro-character.current
  +(define-test #:unset-dispatch-macro-character.current
     (let ((*readtable* #1=(copy-readtable nil)))
       (set-dispatch-macro-character #\# #\%
                                     (get-dispatch-macro-character #\# #\' *readtable*))
  
positive.code:     (multiple-value-bind (f nt) (get-macro-character #\%)
        (assert-eql (values nil nil) (values f nt)))))
  
  (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))
        )
  
  
      (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))
        #+clisp (assert-eql (values t t) (values (functionp f) nt))
        )5
  
      (remove-dispatch-macro-character #\$ rt)
      (remove-dispatch-macro-character #\% rt)
  
negative.code:                 (get-dispatch-macro-character #\# #\NEWLINE #1#))))
  
  
  (define-test #:remove-dispatch-macro-character.current
    (let ((*readtable* #1=(copy-readtable nil)))
  
      (make-dispatch-macro-character #\$ nil)
      (multiple-value-bind (f nt) (get-macro-character #\$)
        #+(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)
      (multiple-value-bind (f nt) (get-macro-character #\%)
        #+(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))
        )
  
      (remove-dispatch-macro-character #\$)
  