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 from-alien-function ((type copy-of) &key (ref :copy))
    (if (eq ref :copy)
        (from-alien-function (second (type-expand-to 'copy-of type)) :ref ref)
      (error "Keyword arg :REF to FROM-ALIEN-FUNCTION should be :COPY for type ~A. It was give ~A" type ref)))
  
  (define-type-method to-alien-form ((type copy-of) form &optional (copy-p t))
    (if copy-p
  