From 499bca0937d1a35c6e14e15a6db69769db32ca81 Mon Sep 17 00:00:00 2001 From: D Herring Date: Fri, 28 Aug 2009 00:17:37 -0400 Subject: [PATCH] Work around a clisp bug. Clisp has trouble passing gensyms between forms created by a macro. see e.g. http://sourceforge.net/tracker/index.php?func=detail&aid=836838&group_id=1355&atid=101355 This mangling should be unique for each name/s. --- dev/macros.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/dev/macros.lisp b/dev/macros.lisp index 2dd8424..7c07315 100644 --- a/dev/macros.lisp +++ b/dev/macros.lisp @@ -54,7 +54,8 @@ instead #+(or) (gignores (gensym "ignores"))) (cond (multiple-names? - (setf main-method-name (gensym "binding-generator")) + (setf main-method-name + (intern (format nil "~A_~A" 'bind-generate-bindings (car name/s)))) ) (t (setf main-method-name 'bind-generate-bindings) -- 1.7.0.5