anchor.diff:        (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)
  +      (unless (member *for-value* '(:multiple :tail))
           (emit `(sys.lap-x86:mov64 :lsp :rbx)))
         (emit `(sys.lap-x86:jmp ,resume)))
       (load-in-reg :r9 divisor t)
  
positive.code:           ;; :rdx holds the remainder as a fixnum.
            `(sys.lap-x86:shl64 :rax 3)
            `(sys.lap-x86:mov64 :r8 :rax))
      (prog1 (cond ((eql *for-value* :multiple)
                    (emit `(sys.lap-x86:mov64 :r9 :rdx)
                          `(sys.lap-x86:mov64 :rbx :lsp))
                    (load-constant :rcx 2)
  
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)))))))
  