Re: clisp CLOS lock

[Sam S. <sd...@gn...>]

> * Reini Urban <eh...@k-...> [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.