Gensym tweak.
authorJulian Squires <julian@cipht.net>
Mon, 13 Apr 2009 19:39:45 +0000 (13 15:39 -0400)
committerJulian Squires <julian@cipht.net>
Mon, 13 Apr 2009 19:39:45 +0000 (13 15:39 -0400)
utilities.lisp

index 6da42f0..5a1917f 100644 (file)
@@ -16,7 +16,7 @@
 ;;; give the wrong impression, alas.
 (defmacro with-images ((&rest images) &body body)
   "Generates an IL image for each of IMAGES, binding and loading if a parameter is supplied.  BODY is executed, and the images are freed thereafter."
-  (let ((ids (gensym))
+  (let ((ids (gensym "IDS"))
         (count (length images)))
     `(cffi:with-foreign-object (,ids :uint ,count)
        (%gen-images ,count ,ids)