anchor.diff:             val))))
       (:wired
        (mezzanine.supervisor:with-symbol-spinlock (*wired-allocator-lock*)
  +       (verify-freelist sys.int::*wired-area-freelist* (* 2 1024 1024) sys.int::*wired-area-bump*)
          (let ((val (sys.int::%%assemble-value
                      (+ (%allocate-from-pinned-area sys.int::+object-tag-cons+ 0 4 'sys.int::*wired-area-freelist*) 16)
                      sys.int::+tag-cons+)))
  
positive.code:         sys.int::*general-area-limit* (logand (+ sys.int::*general-area-bump* #x1FFFFF) (lognot #x1FFFFF))
          sys.int::*cons-area-limit* (logand (+ sys.int::*cons-area-bump* #x1FFFFF) (lognot #x1FFFFF))
          *allocator-lock* (mezzanine.supervisor:make-mutex "Allocator")))
  
  ;;; FIXME: The pinned/general/cons allocators must somehow initialize their objects with the
  ;;; allocator lock released. taking a pagefault with it taken is bad, as it will cause
  
negative.code:     (:pinned
       (mezzanine.supervisor:with-mutex (*allocator-lock*)
         (mezzanine.supervisor:with-gc-deferred
           (verify-freelist sys.int::*pinned-area-freelist* (* 2 1024 1024 1024) sys.int::*pinned-area-bump*)
           (let ((val (sys.int::%%assemble-value
                       (+ (%allocate-from-pinned-area sys.int::+object-tag-cons+ 0 4 'sys.int::*pinned-area-freelist*) 16)
                       sys.int::+tag-cons+)))
  