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:     (remove-dispatch-macro-character #\$ rt)
      (remove-dispatch-macro-character #\% rt)
  
      (multiple-value-bind (f nt)  (get-macro-character #\$ rt)
        (assert-eql (values nil nil) (values f nt)))
  
      (multiple-value-bind (f nt)  (get-macro-character #\% rt)
        (assert-eql (values nil nil) (values f nt)))))
  
  
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
  