From: Julian Squires <julian@cipht.net>
Date: Mon, 13 Apr 2009 19:39:45 +0000 (-0400)
Subject: Gensym tweak.
X-Git-Url: https://repo.or.cz/w/cl-devil.git/commitdiff_plain/d21c023333221b5a3090d8d7b4cd0b251073dacf

Gensym tweak.
---

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