[mcclim-cvs] CVS mcclim

[thenriksen]

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")
+     , at body))
+
 #+openmcl
 (defmacro with-system-redefinition-allowed (&body body)
   `(progn
@@ -90,7 +95,7 @@
   `(progn
     , at body))
 
-#-(or excl openmcl cmu sbcl)
+#-(or excl openmcl cmu sbcl clisp)
 (defmacro with-system-redefinition-allowed (&body body)
   `(progn
      , at body))