clisp CLOS lock

This is a multi-part message in MIME format.
--------------020206010000070503080605
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 7bit

since clisp locks now CLOS the attached patch is required.


--------------020206010000070503080605
Content-Type: text/plain;
 name="clisp-clos.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="clisp-clos.patch"

Index: clocc.lisp
===================================================================
RCS file: /cvsroot/clocc/clocc/clocc.lisp,v
retrieving revision 1.13
diff -u -b -r1.13 clocc.lisp
--- clocc.lisp	12 Dec 2000 16:10:26 -0000	1.13
+++ clocc.lisp	21 Sep 2004 20:17:46 -0000
@@ -68,8 +68,9 @@
         (setf (second excl:arglist)
               (map 'vector key (second excl:arglist)))))))
 
-#+clisp (setq clos::*warn-if-gf-already-called* nil
-              clos::*gf-warn-on-replacing-method* nil)
+#+clisp (ext:without-package-lock ("CLOS")
+	 (setq clos::*warn-if-gf-already-called* nil
+               clos::*gf-warn-on-replacing-method* nil))
 
 #+cmu
 (progn
@@ -79,7 +80,7 @@
 
 #+gcl (defmacro lambda (bvl &body forms) `#'(lambda ,bvl ,@forms))
 
-#-(or allegro clisp mcl)
+#-(or allegro clisp mcl cormanlisp)
 (define-setf-expander values (&rest places &environment env)
   (loop :for pl :in places :with te :and va :and ne :and se :and ge :do
         (multiple-value-setq (te va ne se ge) (get-setf-expansion pl env))

--------------020206010000070503080605--


-------------------------------------------------------
This SF.Net email is sponsored by: YOU BE THE JUDGE. Be one of 170
Project Admins to receive an Apple iPod Mini FREE for your judgement on
who ports your project to Linux PPC the best. Sponsored by IBM.
Deadline: Sept. 24. Go here: http://sf.net/ppc_contest.php