anchor.diff:  (eval-when (:compile-toplevel :execute)
     #+sbcl (when (find-symbol "ASSERT-NOT-STANDARD-READTABLE"
                               (find-package "SB-IMPL"))
  -           (push :sbcl+safe-standard-readtable *features*)))
  +           (pushnew :sbcl+safe-standard-readtable *features*)))
   
   
   ;;;;; Implementation-dependent cruft
  
positive.code: 
  ;;;; Readtables Iterators
  
  #+sbcl
  (defun %make-readtable-iterator (readtable)
    (let ((char-macro-array (sb-impl::character-macro-array readtable))
  
negative.code: 
  (in-package :editor-hints.named-readtables)
  
  (defmacro define-cruft (name lambda-list &body (docstring . alternatives))
    (assert (typep docstring 'string) (docstring) "Docstring missing!")
  