From d21c023333221b5a3090d8d7b4cd0b251073dacf Mon Sep 17 00:00:00 2001
From: Julian Squires <julian@cipht.net>
Date: Mon, 13 Apr 2009 15:39:45 -0400
Subject: [PATCH] Gensym tweak.

---
 utilities.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.11.4.GIT