anchor.diff:             (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))))
  
positive.code:                                                    ,register))))))
              (reverse variables)
              jump-targets)
        (emit no-vals-label
              `(sys.lap-x86:mov64 :lsp :rax)))
      (finish-mv-region)
      (cg-form `(progn ,@body))))
  
  
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*
  