From b537df474b36a4b85c83ebaa9401ea36e768cfbf Mon Sep 17 00:00:00 2001
From: "Liam M. Healy" <lnp@healy.washington.dc.us>
Date: Thu, 16 Dec 2010 12:24:59 -0500
Subject: [PATCH] Use fsbv:object to replace fsbv:convert-from-pointer

---
 init/body-expand.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/init/body-expand.lisp b/init/body-expand.lisp
index 55436fc5..c8bae7db 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-12 00:21:04EST body-expand.lisp>
+;; Time-stamp: <2010-12-16 11:46:22EST body-expand.lisp>
 ;;
 ;; Copyright 2009, 2010 Liam M. Healy
 ;; Distributed under the terms of the GNU General Public License
@@ -84,8 +84,7 @@
 
 (defun cl-convert-form (decl)
   "Generate a form that calls the appropriate converter from C/GSL to CL."
-  (list
-   (fsbv:convert-from-pointer (grid:st-symbol decl) (grid:st-actual-type decl))))
+  (list `(fsbv:object ,(grid:st-symbol decl) ',(grid:st-actual-type decl))))
 
 (defun values-unless-singleton (forms)
   (unless (listp forms) (error "Values are not a list."))
-- 
GitLab