anchor.diff:      (cond ((readtablep designator) designator)
   	  ((reserved-readtable-name-p designator)
   	   (find-reserved-readtable designator))
  -	  ((%find-readtable-from-name designator)))))
  +	  ((%find-readtable designator)))))
   
   ;;; FIXME: This doesn't take a NAMED-READTABLE-DESIGNATOR, but only a
   ;;; STRING-DESIGNATOR. (When fixing, heed interplay with compiler
  
positive.code: 	nil
  	(prog1 t
  	  (check-type read-table-name (not (satisfies reserved-readtable-name-p)))
  	  (%unregister-readtable-name read-table)
  	  (%unregister-readtable read-table-name)))))
  
  (defun readtable-name (named-readtable-designator)
    "Returns the name of the readtable designated by
  
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)))
  