anchor.diff:      (error 'sub-char-must-not-be-a-decimal-digit
   	   :disp-char disp-char
   	   :sub-char sub-char))
  -  (setf sub-char (char-upcase sub-char))
     (let ((subtable (gethash disp-char (dispatch-macro-characters readtable))))
       (when (null subtable)
         (error 'char-must-be-a-dispatching-character
  
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)
  