anchor.diff:    (check-type string-designator string-designator)
     `(eval-when (:compile-toplevel :load-toplevel :execute)
        (setf *readtable* (ensure-readtable ,string-designator))))
  + 
   (defun make-readtable (name &key merge)
     "Makes and returns a new readtable under the specified NAME. The
  
positive.code:   ;;; is out of scope of this library, though. So we just threaten
    ;;; with nasal demons.
    ;;;
    (defvar *standard-readtable* (copy-readtable nil)))
  
  (defparameter *reserved-readtable-names* '(nil :standard :current))
  
  
negative.code:   (flet ((process-option (option var)
             (destructure-case option
               ((:merge &rest readtable-designators)
  	      `(merge-readtables-into ,var ,@readtable-designators))
               ((:dispatch-macro-char disp-char sub-char function)
                `(set-dispatch-macro-character ,disp-char ,sub-char ,function ,var))
               ((:macro-char char function &optional non-terminating-p)
  