anchor.diff:    (:shadow :copy-readtable)
     (:import-from :cl21.core.array
                   :adjustable-vector)
  -  (:shadowing-import-from :cl21.core.generic
  -                          :getf)
     (:import-from :cl21.core.sequence
                   :maptree)
     (:import-from :cl21.core.hash-table
  
positive.code:   (:dispatch-macro-char #\# #\' (function |#'-reader|))
    (:dispatch-macro-char #\# #\( #'vector-reader)
    (:dispatch-macro-char #\# #\{ #'hash-table-reader)
    (:macro-char #\} (get-macro-character #\)))
    (:macro-char #\[ #'getf-reader)
    (:macro-char #\] (get-macro-character #\))))
  
  #.`(defreadtable cl21-package-local-nickname-syntax
       (:merge :standard)
  
negative.code:         ,@(if numarg
                `(:dimension ,numarg)
                nil)
          :initial-contents ,list))))
  
  (defreadtable :cl21
    (:merge :standard)
  