From: Julian Squires <julian@cipht.net>
Date: Tue, 11 Nov 2008 16:26:38 +0000 (-0500)
Subject: Trivial fix of WITH-IMAGES.
X-Git-Url: https://repo.or.cz/w/cl-devil.git/commitdiff_plain/7a5fc2088b0d4c96a0bea573e2c7a16f7c9551d7

Trivial fix of WITH-IMAGES.
---

diff --git a/utilities.lisp b/utilities.lisp
index d0b5a9e..6da42f0 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -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))