anchor.diff:      ;; Bind arguments to registers.
       (flet ((frob-arg (variable register)
                (when variable
  -               (cond (*enable-locals*
  -                      (let ((inst (make-instance 'bind-local-instruction
  -                                                 :ast variable
  -                                                 :value register)))
  -                        (emit inst)
  -                        (setf (gethash variable *variable-registers*) inst)))
  -                     (t
  -                      (setf (gethash variable *variable-registers*) register))))))
  +               (let ((inst (make-instance 'bind-local-instruction
  +                                          :ast variable
  +                                          :value register)))
  +                 (emit inst)
  +                 (setf (gethash variable *variable-registers*) inst)))))
         (frob-arg (lambda-information-fref-arg lambda) fref-reg)
         (frob-arg (lambda-information-closure-arg lambda) closure-reg)
         (frob-arg (lambda-information-count-arg lambda) count-reg)
  
positive.code:     (assert (localp var))
      (when (not value)
        (return-from cg-form nil))
      (if (typep loc 'virtual-register)
          (emit (make-instance 'move-instruction
                               :destination loc
                               :source value))
          (emit (make-instance 'store-local-instruction
                               :local loc
                               :value value)))
      value))
  
  (defun tagbody-localp (info)
  
negative.code:          (let ((value (cg-form init-form :value)))
             (when (not value)
               (return-from cg-form nil))
             (let ((inst (make-instance 'bind-local-instruction
                                        :ast var
                                        :value value)))
               (emit inst)
               (push (list :binding inst) *dynamic-stack*)
               (setf (gethash var *variable-registers*) inst))))
      (let ((result (cg-form (ast-body form) result-mode)))
        (when result
          (loop
             for (var init-form) in (reverse (ast-bindings form))
             do (emit (make-instance 'unbind-local-instruction
  