anchor.diff:    (check-type name symbol)
     (check-type read-table readtable)
     (check-type name (not (satisfies reserved-readtable-name-p)))
  -  (%register-readtable-name name read-table)
  -  (%register-readtable name read-table)
  +  (%associate-readtable-with-name name read-table)
  +  (%associate-name-with-readtable name read-table)
     read-table)
   
   (defun unregister-readtable (named-readtable-designator)
  
positive.code: 	 (read-table-name (readtable-name read-table)))
      ;; We use the internal functions directly to omit repeated
      ;; type-checking.
      (%unregister-readtable-name read-table)
      (%unregister-readtable read-table-name)
      (%register-readtable-name new-name read-table)
      (%register-readtable new-name read-table)
      read-table))
  
  (defun merge-readtables-into (result-table &rest named-readtable-designators)
  
negative.code: ;;; readtable (and thus rendering this readtable to be non-standard,
  ;;; in fact.)
  
  
  (defun constant-standard-readtable-expression-p (thing)
    (cond ((symbolp thing) (or (eq thing 'nil) (eq thing :standard)))
  