anchor.diff:           (mmx-vector
             (check-type rhs mmx-vector)
             (,mmx-function lhs rhs))))
  +     (defun ,mmx-function (lhs rhs)
  +       (,mmx-function lhs rhs))
        (eval-when (:compile-toplevel :load-toplevel :execute)
          (sys.c::define-transform ,name ((lhs mmx-vector) (rhs mmx-vector))
              ((:optimize (= safety 0) (= speed 3)))
  
positive.code: 
  (defun mmx-vector-value (vector)
    (check-type vector mmx-vector)
    (sys.int::%object-ref-unsigned-byte-64 vector 0))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (sys.c::define-transform mmx-vector-value ((value mmx-vector))
  
negative.code: (defun make-mmx-vector (value)
    (check-type value (unsigned-byte 64))
    (%make-mmx-vector value))
  
  (defun %make-mmx-vector/fixnum (value)
    (make-mmx-vector value))
  
  (defun %make-mmx-vector (value)
    (make-mmx-vector value))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (sys.c::define-transform make-mmx-vector ((value (unsigned-byte 64)))
  