anchor.diff:  
   (eval-always
   
  - (define-constant-once +package-keyword+          (find-package '#:keyword))
  - (define-constant-once +package-common-lisp+      (find-package '#:common-lisp))
  - (define-constant-once +package-common-lisp-user+ (find-package '#:common-lisp-user))
  + (define-global +package-keyword+          (find-package '#:keyword))
  + (define-global +package-common-lisp+      (find-package '#:common-lisp))
  + (define-global +package-common-lisp-user+ (find-package '#:common-lisp-user))
   
    (defun collect-symbols (package-designator &key expected-n-symbols start-with)
      "Return a sorted vector containing all external symbols of a package."
  
positive.code:  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) 
  
   :compile-toplevel :load-toplevel :execute ;; eval-when options
   :inherited :external :internal ;; intern options
  
negative.code: (defconstant +mem-syms/last+ (+ +mem-syms/first+ (length +symbols-vector+) -1) "last value used for predefined symbols")
  
  
  (defconstant +mem-syms-user/first+   2048 "first value available for user-defined symbols")
  
  
  
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  
    (loop for (sym . expected-pos)
       in `((nil     . ,+mem-sym/nil+)
            (t       . ,+mem-sym/t+)
            (&whole  .  11)
            (and     .  86)
            (car     . 182)
            (cons    . 257)
            (do      . 319)
            (if      . 443)
            (map     . 565)
            (nth     . 633)
            (setf    . 785)
            (string  . 852)
            (vector  . 949)
            (zerop   . 979)
            (,+package-common-lisp-user+ . ,+mem-pkg/common-lisp-user+)
            (,+package-common-lisp+      . ,+mem-pkg/common-lisp+)
            (,+package-keyword+          . ,+mem-pkg/keyword+)
            (:compile-toplevel           . 1024)
            (:around                     . 1054))
       for pos = (gethash sym +symbols-table+)
       do
         (unless (eql pos expected-pos)
           (error "HYPERLUMINAL-DB: unexpected contents of ~S, cannot compile!
  symbol ~S is associated to value ~S, it must be associated to value ~S instead"
                  '+symbols-table+ sym pos expected-pos))))
  
  