anchor.diff:  (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)))
  
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:          (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)))
  