anchor.diff:          `(sys.lap-x86:mov64 (:symbol-flags :r8) 0))
     (setf *r8-value* (list (gensym))))
   
  -(defbuiltin apply (function arguments)
  +;;; Apply does not generate a function.
  +(defbuiltin apply (function arguments) (nil)
     (let ((type-error-label (gensym))
           (fn-type-error-label (gensym))
           (loop-test (gensym))
  
positive.code: 	  `(sys.lap-x86:mov64 :r8 :rax))
      (setf *r8-value* (list (gensym)))))
  
  (defbuiltin sys.int::%simple-array-type (array)
    (let ((type-error-label (gensym)))
      (emit-trailer (type-error-label)
  		  (raise-type-error :r8 '(simple-array * (*))))
  
negative.code: 	  `(sys.lap-x86:mov64 (:rax :rcx) :rdx))
      *r8-value*))
  
  (defbuiltin (setf sys.int::memref-t) (new-value base offset) ()
    (let ((type-error-label (gensym)))
      (load-in-reg :rax base t)
      (fixnum-check :rax)
  