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:                  (scav-one stack-pointer slot)))))))
    (dotimes (slot pushed-values)
      (when *gc-debug-scavenge-stack*
        (gc-log "Scav pv " slot))
      (scavengef (memref-t stack-pointer slot)))
    ;; Scan incoming arguments.
    (when incoming-arguments
      ;; Stored as fixnum on the stack.
      (when *gc-debug-scavenge-stack*
        (gc-log "IA in slot " (- -1 incoming-arguments)))
      (scavenge-stack-n-incoming-arguments
       frame-pointer stack-pointer framep
       layout-length
  