From a34aabeda1632a37cbc36aa5ce94bae17c93a172 Mon Sep 17 00:00:00 2001 From: Liam Healy <healy@declination> Date: Sun, 12 Dec 2010 00:27:34 -0500 Subject: [PATCH] Define cl-convert-form in terms of fsbv:convert-from-pointer --- init/body-expand.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/init/body-expand.lisp b/init/body-expand.lisp index 4524a3a2..55436fc5 100644 --- a/init/body-expand.lisp +++ b/init/body-expand.lisp @@ -1,6 +1,6 @@ ;; Expand the body of a defmfun ;; Liam Healy 2009-04-13 22:07:13EDT body-expand.lisp -;; Time-stamp: <2010-12-04 17:24:31EST body-expand.lisp> +;; Time-stamp: <2010-12-12 00:21:04EST body-expand.lisp> ;; ;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -84,9 +84,8 @@ (defun cl-convert-form (decl) "Generate a form that calls the appropriate converter from C/GSL to CL." - (if (fsbv:converter-defined-p (grid:st-actual-type decl)) - `((fsbv:object ,(grid:st-symbol decl) ',(grid:st-actual-type decl))) - `((cffi:mem-aref ,(grid:st-symbol decl) ',(grid:st-actual-type decl))))) + (list + (fsbv:convert-from-pointer (grid:st-symbol decl) (grid:st-actual-type decl)))) (defun values-unless-singleton (forms) (unless (listp forms) (error "Values are not a list.")) -- GitLab