anchor.diff:   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
    0 0 0 0 0 0 0 0 0 0 0 0
   
  - #.(load-time-value stmx.util::+empty-tcell+ t)
  -
  - #.(load-time-value +package-common-lisp-user+ t) 
  - #.(load-time-value +package-common-lisp+ t) 
  - #.(load-time-value +package-keyword+ t) 
  + ,+package-common-lisp-user+
  + ,+package-common-lisp+
  + ,+package-keyword+
   
    :compile-toplevel :load-toplevel :execute ;; eval-when options
    :inherited :external :internal ;; intern options
  
positive.code:  :case :common :local ;; make-pathname options
   :absolute :relative :wild :newest :unspecific :oldest :previous :installed ;; used inside pathnames
   :before :after :around ;; defmethod options
  ))
  
  
  
  (define-constant-once +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: 
  ;; sorted vector of all external symbols in package COMMON-LISP
  #-(and)
  (define-global +symbols-vector+
      (collect-symbols '#:common-lisp :expected-n-symbols 978 :start-with '(nil t)))
  
  
  (define-global +symbols-vector+ (coerce `(
   nil t  ,stmx::+unbound-tvar+ ,stmx.util::+empty-tcell+
  
   &allow-other-keys &aux &body &environment &key &optional &rest &whole
   * ** *** *break-on-signals* *compile-file-pathname* *compile-file-truename*
   *compile-print* *compile-verbose* *debug-io* *debugger-hook*
  