Commit d9f88c38 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

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.
parent 7b8c847d
;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment