anchor.diff:                            (not (getf (sys.c:lexical-variable-plist ast)
                                        'sys.c::hide-from-debug-info)))
                   do (push (list (sys.c::lexical-variable-name ast) slot) debug-layout))))
  +      (when (sys.c:lambda-information-environment-layout
  +             (mezzano.compiler.backend::ast backend-function))
  +        (setf environment-slot
  +              (position-if (lambda (x)
  +                             (and (listp x)
  +                                  (member (first (sys.c:lambda-information-environment-layout
  +                                                  (mezzano.compiler.backend::ast backend-function)))
  +                                          x
  +                                          :key #'bind-local-ast)))
  +                           layout)))
         (values (make-array (length layout)
                             :adjustable t
                             :fill-pointer t
                             :initial-contents layout)
  -              debug-layout))))
  +              debug-layout
  +              environment-slot))))
   
   (defun allocate-stack-slots (count &key (livep t) aligned)
     (assert (not *current-frame-layout*) ()
  
positive.code:   (mezzano.compiler.backend.x86-64::peephole backend-function))
  
  (defun compile-backend-function-2 (backend-function)
    (multiple-value-bind (lap debug-layout)
        (to-lap backend-function)
      (when sys.c::*trace-asm*
        (format t "~S:~%" (backend-function-name backend-function))
  
negative.code:                          (emit-gc-info)))
                     (emit-lap backend-function inst-or-label uses defs))))
            (values (reverse *emitted-lap*)
                    debug-layout
                    environment-slot))))))
  
  (defmethod lap-prepass (backend-function (instruction argument-setup-instruction) uses defs)
    (when (argument-setup-rest instruction)
  