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