anchor.diff:                                              layout-length n-args)
     (let ((n-values (max 0 (- n-args 5))))
       (when *gc-debug-scavenge-stack*
  -      (mezzano.supervisor:debug-print-line
  +      (gc-log
          "  n-args " n-args
          "  n-values " n-values
          "  from " (if framep
  
positive.code:            (gc-info-for-function-offset fn fn-offset)
           (when *gc-debug-metadata*
             (flet ((bad-metadata (message)
                      (let ((*gc-debug-scavenge-stack* t))
                        (mezzano.supervisor:debug-print-line "RA: " return-address)
                        (mezzano.supervisor:debug-print-line "FP: " frame-pointer)
                        (mezzano.supervisor:debug-print-line "SP: " stack-pointer)
                        (mezzano.supervisor:debug-print-line "FNa: " fn-address)
                        (mezzano.supervisor:debug-print-line "FNo: " fn-offset)
                        (debug-stack-frame framep interruptp pushed-values pushed-values-register
                                           layout-address layout-length
                                           multiple-values incoming-arguments
  
negative.code: 
  (defun scavenge-dynamic ()
    (loop
       (gc-log
        "General. Limit: " *general-area-limit*
        "  Bump: " *general-area-bump*
        "  Curr: " *scavenge-general-finger*)
       (gc-log
        "Cons.    Limit: " *cons-area-limit*
        "  Bump: " *cons-area-bump*
        "  Curr: " *scavenge-cons-finger*)
  