anchor.diff:   :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+))
  +) 'vector)))
  +
  +
  +
  +(eval-always
  +  (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")
  
positive.code: 
  
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  
    (loop for (sym . expected-pos)
       in `((nil     . ,+mem-sym/nil+)
  
negative.code:     (collect-symbols '#:common-lisp :expected-n-symbols 978 :start-with '(nil t)))
  
  
  (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
  