anchor.diff:                   ,@(let ((info (assoc (second form) new-envs)))
                        (when info
                          (if *environment*
  -                           (list `(setq ,(second info) (,(if (gethash (second form) *environment-layout-dx*)
  -                                                             'sys.c::make-dx-simple-vector
  -                                                             'sys.int::make-simple-vector)
  -                                                         ',(1+ (length (third info)))))
  +                           (list `(setq ,(second info) ,(generate-make-environment (second form) (1+ (length (third info)))))
                                    (list '(setf sys.int::%svref)
                                          (second (first *environment-chain*))
                                          (second info)
                                          ''0))
  -                           (list `(setq ,(second info) (,(if (gethash (second form) *environment-layout-dx*)
  -                                                             'sys.c::make-dx-simple-vector
  -                                                             'sys.int::make-simple-vector)
  -                                                         ',(1+ (length (third info)))))))))
  +                           (list `(setq ,(second info) ,(generate-make-environment (second form) (1+ (length (third info)))))))))
                    ,@(frob-inner (second form))))
                (frob-inner (current-env)
                  (loop for stmt in (cddr form)
  
positive.code:                             (gethash env *environment-layout*)))
                    *environment*))))
  
  (defun le-lambda (lambda)
    (let ((*environment-chain* '())
          (*environment* *environment*)
          (local-env (gethash lambda *environment-layout*))
          (*current-lambda* lambda))
      (when *environment*
        ;; The entry environment vector.
        (let ((env (make-lexical-variable :name (gensym "Environment")
  
negative.code:              (push lambda *environment*)
               (setf (lambda-information-environment-layout lambda) (compute-environment-layout-debug-info))
               (setf (lambda-information-body lambda)
                     `((let ((,new-env ,(generate-make-environment lambda (1+ (length local-env)))))
                         ,@(when (rest *environment-chain*)
                             (list (list '(setf sys.int::%svref)
                                         (second (second *environment-chain*))
  