Trivial fix of WITH-IMAGES.
authorJulian Squires <julian@cipht.net>
Tue, 11 Nov 2008 16:26:38 +0000 (11 11:26 -0500)
committerJulian Squires <julian@cipht.net>
Tue, 11 Nov 2008 16:26:38 +0000 (11 11:26 -0500)
utilities.lisp

index d0b5a9e..6da42f0 100644 (file)
@@ -19,7 +19,7 @@
   (let ((ids (gensym))
         (count (length images)))
     `(cffi:with-foreign-object (,ids :uint ,count)
-       (il:gen-images ,count ,ids)
+       (%gen-images ,count ,ids)
        (unwind-protect
             (let (,@(loop for x in images
                        for (var . args) = (if (listp x) x (list x))