From d9f88c38c8e7cbcae8a0eb99f03df767ec378a45 Mon Sep 17 00:00:00 2001
From: "Liam M. Healy" <lnp@healy.washington.dc.us>
Date: Wed, 11 Aug 2010 10:05:34 -0400
Subject: [PATCH] Workaround CLISP bug

CLISP does not recognize that an uninterned symbol in different
parts of a progn is the same;
http://sourceforge.net/tracker/?func=detail&aid=836838&group_id=1355&atid=101355
Since this bug was "long-standing" the better part of a decade ago, we
will assume it now has tenure and change the progn to let.
---
 init/defmfun.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/init/defmfun.lisp b/init/defmfun.lisp
index 79c0c470..ef02ae6d 100644
--- a/init/defmfun.lisp
+++ b/init/defmfun.lisp
@@ -1,6 +1,6 @@
 ;; Macro for defining GSL functions.
 ;; Liam Healy 2008-04-16 20:49:50EDT defmfun.lisp
-;; Time-stamp: <2010-06-27 18:03:23EDT defmfun.lisp>
+;; Time-stamp: <2010-08-11 09:07:31EDT defmfun.lisp>
 ;;
 ;; Copyright 2009 Liam M. Healy
 ;; Distributed under the terms of the GNU General Public License
@@ -166,7 +166,7 @@
 			  (mapcar #'mapnfn gsl-name)
 			  (list (mapnfn gsl-name)))))
 		(when export `((export ',name))))))))
-      `(progn
+      `(let ()			 ; no progn here because of CLISP bug
 	 ,@(if (symbolp (first expanded-body)) (list expanded-body) expanded-body)
 	 ,@(make-defmcallbacks
 	    cbinfo
-- 
GitLab