anchor.diff:  
   (defun %allocate-object (tag data size area)
     (when sys.int::*gc-in-progress*
  -    (sys.int::emergency-halt "Allocating during GC!"))
  +    (mezzanine.supervisor:panic "Allocating during GC!"))
     (let ((words (1+ size)))
       (when (oddp words)
         (incf words))
  
positive.code: 
  (defun sys.int::cons-in-area (car cdr &optional area)
    (when sys.int::*gc-in-progress*
      (sys.int::emergency-halt "Allocating during GC!"))
    (ecase area
      ((nil) (cons car cdr))
      (:pinned
  
negative.code: 
  (defun cons (car cdr)
    (when sys.int::*gc-in-progress*
      (mezzanine.supervisor:panic "Allocating during GC!"))
    (tagbody
     OUTER-LOOP
       (mezzanine.supervisor:with-mutex (*allocator-lock*)
  