- #'(lambda (value location &optional (offset 0))
- (setf
- #+(or cmu sbcl)(sap-ref-single location offset)
- #+clisp(ffi:memory-as location 'single-float offset)
- (coerce value 'single-float))))
+ #'(lambda (number location &optional (offset 0))
+ (setf (ref-single-float location offset) (coerce number 'single-float))))