Re: clisp CLOS lock

> * Reini Urban <[email protected]> [2004-09-21 22:18:41 +0200]:
>
> since clisp locks now CLOS the attached patch is required.
>
> 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))

you are using an ancient version.
please try CVS.

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
Only adults have difficulty with child-proof caps.



-------------------------------------------------------
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