From 4e94e04b3254f38fa8ce7b43261058cd3b671025 Mon Sep 17 00:00:00 2001 Message-Id: <4e94e04b3254f38fa8ce7b43261058cd3b671025.1714971372.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 15 Aug 2000 23:25:18 +0000 Subject: [PATCH] Fixed a bug in the translation of lists to GLists Organization: Straylight/Edgeware From: espen --- glib/glib.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/glib/glib.lisp b/glib/glib.lisp index fdb3851..891196a 100644 --- a/glib/glib.lisp +++ b/glib/glib.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: glib.lisp,v 1.1 2000-08-14 16:44:31 espen Exp $ +;; $Id: glib.lisp,v 1.2 2000-08-15 23:25:18 espen Exp $ (in-package "GLIB") @@ -83,7 +83,7 @@ (deftype-method translate-to-alien double-list (type-spec list &optional copy) (to-alien (translate-to-alien element-type-spec 'element t))) `(let ((glist (make-pointer 0))) (dolist (element ,list glist) - (setq glist (glist-append glist ,to-alien element-type-spec)))))) + (setq glist (glist-append glist ,to-alien ,element-type-spec)))))) (deftype-method translate-from-alien @@ -110,7 +110,8 @@ (deftype-method cleanup-alien double-list (type-spec glist &optional copied) ,(when (eq alien-type-spec 'system-area-pointer) `(do ((tmp glist (glist-next tmp))) ((null-pointer-p tmp)) - ,(cleanup-alien element-type-spec '(glist-data tmp) t))) + ,(cleanup-alien + element-type-spec `(glist-data tmp ,element-type-spec) t))) (glist-free glist))))) -- [mdw]