From: espen <espen>
Date: Fri, 12 Nov 2004 13:27:41 +0000 (+0000)
Subject: List automatically converted to C vectors
X-Git-Tag: clg-0-90~202
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/e5a69a73d1af1ba5625b4707ec578243a675d6ad

List automatically converted to C vectors
---

diff --git a/glib/glib.lisp b/glib/glib.lisp
index 8d080ff..6fcfb5a 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.18 2004/11/07 16:03:55 espen Exp $
+;; $Id: glib.lisp,v 1.19 2004/11/12 13:27:41 espen Exp $
 
 
 (in-package "GLIB")
@@ -313,11 +313,19 @@ (defun make-c-vector (type length &optional content location)
   (let* ((size-of-type (size-of type))
 	 (location (or location (allocate-memory (* size-of-type length))))
 	 (writer (writer-function type)))
-    (loop
-     for element across content
-     for i from 0 below length
-     as offset = 0 then (+ offset size-of-type)
-     do (funcall writer element location offset))
+    (etypecase content
+      (vector
+       (loop
+	for element across content
+	for i from 0 below length
+	as offset = 0 then (+ offset size-of-type)
+	do (funcall writer element location offset)))
+      (list
+       (loop
+	for element in content
+	for i from 0 below length
+	as offset = 0 then (+ offset size-of-type)
+	do (funcall writer element location offset))))
     location))