[lift-devel] Slime warnings

Gary King gwking at metabang.com
Tue Sep 2 13:39:07 UTC 2008


I haven't pushed the changes yet, but I think I have a fix that works  
in SBCL 1.0.20 (and fails to work in SBCL 1.0.12). It involves using

> (defmacro muffle-redefinition-warnings (&body body)
>   "Evaluate the body so that redefinition warnings will not be
> signaled. (suppored in Allegro, Clozure CL, CLisp, and Lispworks)"
>   #+allegro
>   `(excl:without-redefinition-warnings
>      , at body)
>   #+(or ccl mcl)
>   `(let ((ccl::*warn-if-redefine* nil)
> 	 ;;?? FIXME not sure if this should be here or not...
> 	 (ccl::*record-source-file* nil))
>      , at body)
>   #+clisp
>   `(let ((custom:*suppress-check-redefinition* t))
>     , at body)
>   #+lispworks
>   `(let ((lw:*handle-warn-on-redefinition* :quiet))
>     , at body)
>   #+sbcl
>   ;; from http://www.sbcl.info/manual/Controlling-Verbosity.html
>   `(locally (declare (sb-ext:muffle-conditions sb-ext:compiler-note
> 					       sb-ext::style-warning))
>     , at body)
>   #-(or allegro ccl clisp mcl sbcl)
>   `(progn , at body))
>

that I've stolen from metatilities-base. The earlier versions of SBCL  
don't seem to respect the declaration. I'm looking into this.


On Sep 1, 2008, at 3:22 PM, Vyacheslav Akhmechet wrote:

> On Mon, Sep 1, 2008 at 1:18 PM, Gary King <gwking at metabang.com> wrote:
>> I actually thought that this was fixed and I certainly want it to  
>> be. Which
>> lisp implementation is exhibiting this behavior?
> I'm using SBCL 1.0.11 (on Ubuntu) and Slime 2007-12-02.
> _______________________________________________
> lift-devel mailing list
> lift-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/lift-devel

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM







More information about the lift-devel mailing list