Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
;; 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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment