anchor.diff:      (load-in-r8 list t)
       (smash-r8)
       (cond
  -      ((eql *for-value* :multiple)
  +      ((member *for-value* '(:multiple :tail))
          (emit `(sys.lap-x86:xor32 :ecx :ecx)
                ;; Save the stack pointer.
                `(sys.lap-x86:mov64 :rbx :lsp)
  
positive.code:       (emit `(sys.lap-x86:mov32 :ecx 16)
              `(sys.lap-x86:mov64 :r13 (:constant sys.int::generic-truncate))
              `(sys.lap-x86:call (:symbol-function :r13)))
        (unless (eql *for-value* :multiple)
          (emit `(sys.lap-x86:mov64 :lsp :rbx)))
        (emit `(sys.lap-x86:jmp ,resume)))
      (load-in-reg :r9 divisor t)
  
negative.code:           function-label
            `(sys.lap-x86:call :r13)
            out-label)
      (cond ((member *for-value* '(:multiple :tail))
             :multiple)
            (t (emit `(sys.lap-x86:mov64 :lsp :rbx))
               (setf *r8-value* (list (gensym)))))))
  