anchor.diff:                                                     ,register))))))
               (reverse variables)
               jump-targets)
  -      (emit no-vals-label
  -            `(sys.lap-x86:mov64 :lsp :rax)))
  +      (emit no-vals-label))
       (finish-mv-region)
       (cg-form `(progn ,@body))))
   
  
positive.code:            (value-locations (nreverse (subseq '(:r8 :r9 :r10 :r11 :r12) 0 (min 5 var-count)))))
        (dotimes (i (- var-count 5))
          (push i value-locations))
        (emit `(sys.lap-x86:mov64 :rax :rbx))
        (dotimes (i var-count)
          (emit `(sys.lap-x86:cmp64 :rcx ,(fixnum-to-raw (- var-count i)))
                `(sys.lap-x86:jae ,(nth i jump-targets))))
  
negative.code:               (cond ((zerop (lexical-variable-use-count var))
                       (pop value-locations))
                      (t (let ((register (cond ((integerp (first value-locations))
                                                (emit `(sys.lap-x86:mov64 :r13 (:lsp ,(* (pop value-locations) 8))))
                                                :r13)
                                               (t (pop value-locations)))))
                           (emit `(sys.lap-x86:mov64 (:stack ,(position (cons var :home)
                                                                        *stack-values*
  