anchor.diff:      (collect-symbols '#:common-lisp :expected-n-symbols 978 :start-with '(nil t)))
   
   
  -(define-global +symbols-vector+ (coerce `(
  +(eval-always
  + (define-global +symbols-vector+ (coerce `(
  +
    nil t  ,stmx::+unbound-tvar+ ,stmx.util::+empty-tcell+
   
    &allow-other-keys &aux &body &environment &key &optional &rest &whole
  
positive.code:  :case :common :local ;; make-pathname options
   :absolute :relative :wild :newest :unspecific :oldest :previous :installed ;; used inside pathnames
   :before :after :around ;; defmethod options
  ) 'vector))
  
  
  
  (define-global +symbols-table+  (symbols-vector-to-table +symbols-vector+))
  
  (defconstant +mem-pkg/common-lisp-user+ 1021 "persistent representation of the package COMMON-LISP-USER")
  (defconstant +mem-pkg/common-lisp+   1022 "persistent representation of the package COMMON-LISP")
  
negative.code: 
  
  
  (eval-always
  
    (loop for (sym . expected-pos)
       in `((nil     . ,+mem-sym/nil+)
  