Skip to content
Snippets Groups Projects
Commit a34aabed authored by Liam Healy's avatar Liam Healy
Browse files

Define cl-convert-form in terms of fsbv:convert-from-pointer

parent b97213b9
No related branches found
No related tags found
No related merge requests found
;; Expand the body of a defmfun ;; Expand the body of a defmfun
;; Liam Healy 2009-04-13 22:07:13EDT body-expand.lisp ;; 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 ;; Copyright 2009, 2010 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -84,9 +84,8 @@ ...@@ -84,9 +84,8 @@
(defun cl-convert-form (decl) (defun cl-convert-form (decl)
"Generate a form that calls the appropriate converter from C/GSL to CL." "Generate a form that calls the appropriate converter from C/GSL to CL."
(if (fsbv:converter-defined-p (grid:st-actual-type decl)) (list
`((fsbv:object ,(grid:st-symbol decl) ',(grid:st-actual-type decl))) (fsbv:convert-from-pointer (grid:st-symbol decl) (grid:st-actual-type decl))))
`((cffi:mem-aref ,(grid:st-symbol decl) ',(grid:st-actual-type decl)))))
(defun values-unless-singleton (forms) (defun values-unless-singleton (forms)
(unless (listp forms) (error "Values are not a list.")) (unless (listp forms) (error "Values are not a list."))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment