From 7c14f6abb37972445ffc0be122d743da59ea9063 Mon Sep 17 00:00:00 2001 From: espen Date: Wed, 20 Jun 2007 09:49:06 +0000 Subject: [PATCH] Bug fix --- gffi/basic-types.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gffi/basic-types.lisp b/gffi/basic-types.lisp index f06e763..e5582db 100644 --- a/gffi/basic-types.lisp +++ b/gffi/basic-types.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: basic-types.lisp,v 1.8 2007-06-01 06:24:43 espen Exp $ +;; $Id: basic-types.lisp,v 1.9 2007-06-20 09:49:06 espen Exp $ (in-package "GFFI") @@ -459,7 +459,8 @@ have been written as temporal.") (define-type-method writer-function ((type single-float) &key temp (inlined t)) (declare (ignore temp)) (assert-inlined type inlined) - #'(setf ref-single-float)) + #'(lambda (number location &optional (offset 0)) + (setf (ref-single-float location offset) (coerce number 'single-float)))) (define-type-method reader-function ((type single-float) &key ref (inlined t)) (declare (ignore ref)) -- 2.11.0