anchor.diff:    (declare (ignore temp))
     (assert-inlined type inlined)
     #'(lambda (value location &optional (offset 0))
  -      (setf 
  -       #+(or cmu sbcl)(sap-ref-double location offset)
  -       #+clisp(ffi:memory-as location 'double-float offset)
  -       (coerce value 'double-float))))
  +      (setf (ref-double-float location offset) (coerce value 'double-float))))
   
   (define-type-method reader-function ((type double-float) &key ref (inlined t))
     (declare (ignore ref))
     (assert-inlined type inlined)
  -  #'(lambda (location &optional (offset 0))
  -      #+(or cmu sbcl)(sap-ref-double location offset)
  -      #+clisp(ffi:memory-as location 'double-float offset)))
  +  #'ref-double-float)
   
   (deftype optimized-double-float () 'double-float)
   
  
positive.code: (define-type-method to-alien-form ((type static) &optional copy-p)
    (if (not copy-p)
        (to-alien-function (second (type-expand-to 'static type)) t)
    (error "COPY-P argument to TO-ALIEN-FUNCTION should always be NIL for type ~A" type)))
  
  (define-type-method reader-function ((type static) &key (ref :read) (inlined nil inlined-p))
    (if inlined-p
  
negative.code: (define-type-method writer-function ((type single-float) &key temp (inlined t))
    (declare (ignore temp))
    (assert-inlined type inlined)
    #'(setf ref-single-float))
  
  (define-type-method reader-function ((type single-float) &key ref (inlined t))
    (declare (ignore ref))
    (assert-inlined type inlined)
    #'ref-single-float)
  
  
  
  