anchor.diff:      (disp-char sub-char &optional (readtable *readtable*))
     ;; The HyperSpec does not say whether we should convert
     ;; to upper case here, but we think we should.
  -  (setf sub-char (char-upcase sub-char))
  -  (let ((subtable (gethash disp-char (macro-characters readtable))))
  +  (let ((subtable (gethash disp-char (dispatch-macro-characters readtable))))
       (when (null subtable)
         (error 'char-must-be-a-dispatching-character
   	     :disp-char disp-char))
  
positive.code: 	(if non-terminating-p
  	    :non-terminating-macro
  	    :terminating-macro))
    (set-macro-character char #'sharpsign
  		       non-terminating-p
  		       readtable)
    (setf (gethash char (dispatch-macro-characters readtable))
  
negative.code: (defun get-macro-character (char &optional (readtable *readtable*))
    (let ((entry (gethash char (macro-characters readtable))))
      (values
       entry
       (eq (gethash char (syntax-types readtable)) :non-terminating-macro))))
  
  (defun sharpsign (stream char)
  