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