Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv10070

Modified Files: utils.lisp Log Message: Added working `with-system-redefinition-allowed' for CLISP.

--- /project/mcclim/cvsroot/mcclim/utils.lisp 2006/03/15 22:56:54 1.45 +++ /project/mcclim/cvsroot/mcclim/utils.lisp 2006/10/29 11:58:58 1.46 @@ -41,6 +41,11 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (setf (excl:package-definition-lock (find-package :common-lisp)) t))))

+#+clisp +(defmacro with-system-redefinition-allowed (&body body) + `(ext:without-package-lock ("COMMON-LISP") + ,@body)) + #+openmcl (defmacro with-system-redefinition-allowed (&body body) `(progn @@ -90,7 +95,7 @@ `(progn ,@body))

-#-(or excl openmcl cmu sbcl) +#-(or excl openmcl cmu sbcl clisp) (defmacro with-system-redefinition-allowed (&body body) `(progn ,@body))