diff --git a/init/defmfun.lisp b/init/defmfun.lisp index 79c0c470ee3c5f356a5b99be6f6be50be96e4738..ef02ae6d5d898b7a511934307472e4c96ab64bad 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