[cl-markdown-devel] error when compiling with clisp

[Daniel Herring]

On Sun, 9 May 2010, Christoph Senjak wrote:

> I cant compile cl-markdown under clisp. I get the following error-message:
>
> ;; Compiling file /home/clisp2/clbuild/source/cl-markdown/dev/html.lisp ...
> *** - FUNCALL: undefined function #:|binding-generator45339|
...
> I updated to the latest checkout of metabang-bind and cl-markdown, and
> under sbcl, at least it compiles only with (similar) warnings. But on
> clisp, I cannot compile.

Try applying the attached patch to metabang-bind.

- Daniel
-------------- next part --------------
From 499bca0937d1a35c6e14e15a6db69769db32ca81 Mon Sep 17 00:00:00 2001
From: D Herring <dherring at at.tentpost.dot.com>
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