anchor.diff:  ;;; readtable (and thus rendering this readtable to be non-standard,
   ;;; in fact.)
   
  -(define-condition simple-style-warning (simple-warning style-warning)
  -  ())
  -
  -(defun simple-style-warn (format-control &rest format-args)
  -  (warn 'simple-style-warning
  -	 :format-control format-control
  -	 :format-arguments format-args))
   
   (defun constant-standard-readtable-expression-p (thing)
     (cond ((symbolp thing) (or (eq thing 'nil) (eq thing :standard)))
  
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:     (cond ((readtablep designator) designator)
  	  ((reserved-readtable-name-p designator)
  	   (find-reserved-readtable designator))
  	  ((%find-readtable designator)))))
  
  ;;; FIXME: This doesn't take a NAMED-READTABLE-DESIGNATOR, but only a
  ;;; STRING-DESIGNATOR. (When fixing, heed interplay with compiler
  