Re: Style warning with SB-CLTL2:AUGMENT-ENVIRONMENT

That's probably a bogus warning, but what's the idea behind
doing augment-environment for functions?

On Fri, Jun 21, 2024 at 6:21 PM Marco Antoniotti <[email protected]>
wrote:

> Hi
>
> I get the following STYLE-WARNING while (re)working on some code.
> I am not sure why the STYLE-WARNING is generated or whether I am doing
> something wrong. (Note: you do not need to have the function defined
> beforehand to observe the effect.
>
> Any help would be appreciated.
>
> Thank you
>
> MA
>
> CL-USER> *(defun foobarz (x) (declare (ignore x)) 42)*
> FOOBARZ
>
> CL-USER> *(foobarz 123)*
> 42
>
> CL-USER> *(sb-cltl2:augment-environment nil :function '(foobarz) :declare
> '((ftype (function (t) fixnum) foobarz)))*
> *STYLE-WARNING: The definition has zero args, but the FTYPE declaration
> has one.*
> #S(SB-KERNEL:LEXENV
>    :FUNS ((FOOBARZ
>            . #<SB-C::CLAMBDA
>                :%SOURCE-NAME FOOBARZ
>                :%DEBUG-NAME NIL
>                :KIND NIL
>                :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION (T)
>                                            (VALUES FIXNUM &REST T))>
>                :WHERE-FROM :DEFINED
>                :VARS NIL {10037ACF93}>))
>    :VARS NIL
>    :BLOCKS NIL
>    :TAGS NIL
>    :TYPE-RESTRICTIONS NIL
>    :LAMBDA NIL
>    :CLEANUP NIL
>    :HANDLED-CONDITIONS NIL
>    :DISABLED-PACKAGE-LOCKS NIL
>    :%POLICY #<SB-C:POLICY ((INHIBIT-WARNINGS 1) (SPEED 1) (SPACE 1)
> (SAFETY 1)
>                            (DEBUG 1) (COMPILATION-SPEED 1))>
>    :USER-DATA NIL
>    :PARENT NIL
>    :VAR-CACHE NIL
>    :FLUSHABLE NIL)
> CL-USER>
>
> --
> Marco Antoniotti, Professor                   tel. +39 - 02 64 48 79 01
> DISCo, University of Milan-Bicocca U14 2043   http://dcb.disco.unimib.it
> Viale Sarca 336
> I-20126 Milan (MI) ITALY
> _______________________________________________
> Sbcl-help mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/sbcl-help
>

_______________________________________________
Sbcl-help mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/sbcl-help