Discussion:
[clisp-list] How to handle these warnings?
Jean Louis
2017-07-15 16:51:43 UTC
Permalink
Hello,

I am trying to define the .asd file and understand
why there are warnings.

test.asd:

(defsystem "test"
:description "Business CF/WRS/BP"
:version "0.0.1"
:author "Jean Louis"
:licence "GPL v3+"
:depends-on (
"alexandria"
"babel" ;; Remove if loaded
"geo"
"cl-rfc2047"
"cl-emb"
"ironclad"
"do-urlencode"
"cl-ansi-text"
)
:components ((:file "empty-test"))) ;; this file
;; can be empty


test-run:

#!/usr/bin/clisp
;; #!/home/data1/protected/bin/lisp
(setf *load-verbose* nil)
(setf *load-print* nil)
(setf *compile-verbose* nil)
(setf *compile-print* nil)
(load #P"/home/data1/protected/lib/lisp/quicklisp/setup.lisp")
(ql:quickload "asdf" :verbose nil :silent t)
;; (setf asdf:*compile-file-warnings-behaviour* :ignore)
;; (setf asdf:*compile-file-failure-behaviour* :ignore)
(push "/home/data1/protected/Programming/git/RCDBusiness/lib/lisp/" asdf:*central-registry*)
(asdf:load-system "test")

#+clisp
(saveinitmem "/home/data1/protected/tmp/test.mem" :quiet t :init-function 'main
:verbose nil :norc t :documentation "Business"
:executable t)

#+sbcl
(save-lisp-and-die "test.mem" :executable t :toplevel 'main)


and then I get this type of warnings:

WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION PERFORM>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"babel">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS FUNDAMENTAL-OUTPUT-STREAM> #<BUILT-IN-CLASS T>)>
to an already called generic function
#<STANDARD-GENERIC-FUNCTION GRAY:STREAM-WRITE-CHAR-SEQUENCE>
WARNING: Adding method #<STANDARD-METHOD (#<STANDARD-CLASS IN-MEMORY-STREAM>)> to an already
called generic function #<STANDARD-GENERIC-FUNCTION STREAM-ELEMENT-TYPE>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS VECTOR-OUTPUT-STREAM> #<BUILT-IN-CLASS T>)> to an
already called generic function #<STANDARD-GENERIC-FUNCTION STREAM-WRITE-CHAR>
WARNING: Adding method #<STANDARD-METHOD (#<STANDARD-CLASS VECTOR-OUTPUT-STREAM>)> to an
already called generic function #<STANDARD-GENERIC-FUNCTION STREAM-LINE-COLUMN>
Bytes permanently allocated: 165,312
Bytes currently in use: 14,046,448
Bytes available until next GC: 3,510,482


I wish to know:

1) Am I doing something wrong? Maybe I am not
using ASDF proper.

2) Is this warning justified and proper?

3) Is there anyway for me to make it proper that
warnings do not appear?


Jean
Sam Steingold
2017-07-17 16:05:48 UTC
Permalink
Post by Jean Louis
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION PERFORM>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"babel">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
http://clisp.org/impnotes/mop-clisp.html#mop-clisp-gf-already-called-warning
Post by Jean Louis
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS FUNDAMENTAL-OUTPUT-STREAM> #<BUILT-IN-CLASS T>)>
to an already called generic function
#<STANDARD-GENERIC-FUNCTION GRAY:STREAM-WRITE-CHAR-SEQUENCE>
WARNING: Adding method #<STANDARD-METHOD (#<STANDARD-CLASS IN-MEMORY-STREAM>)> to an already
called generic function #<STANDARD-GENERIC-FUNCTION STREAM-ELEMENT-TYPE>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS VECTOR-OUTPUT-STREAM> #<BUILT-IN-CLASS T>)> to an
already called generic function #<STANDARD-GENERIC-FUNCTION STREAM-WRITE-CHAR>
WARNING: Adding method #<STANDARD-METHOD (#<STANDARD-CLASS VECTOR-OUTPUT-STREAM>)> to an
already called generic function #<STANDARD-GENERIC-FUNCTION STREAM-LINE-COLUMN>
The doc claims
Post by Jean Louis
No warning for standard generic functions
so the above looks like a bug.
I pushed a fix.

--
Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1504
http://steingoldpsychology.com http://www.childpsy.net http://think-israel.org
http://www.dhimmitude.org http://americancensorship.org
Oh Lord, give me the source code of the Universe and a good debugger!
Jean Louis
2017-07-17 17:50:04 UTC
Permalink
Post by Sam Steingold
Post by Jean Louis
"babel">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
http://clisp.org/impnotes/mop-clisp.html#mop-clisp-gf-already-called-warning
Post by Jean Louis
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS FUNDAMENTAL-OUTPUT-STREAM> #<BUILT-IN-CLASS T>)>
to an already called generic function
#<STANDARD-GENERIC-FUNCTION GRAY:STREAM-WRITE-CHAR-SEQUENCE>
WARNING: Adding method #<STANDARD-METHOD (#<STANDARD-CLASS IN-MEMORY-STREAM>)> to an already
called generic function #<STANDARD-GENERIC-FUNCTION STREAM-ELEMENT-TYPE>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS VECTOR-OUTPUT-STREAM> #<BUILT-IN-CLASS T>)> to an
already called generic function #<STANDARD-GENERIC-FUNCTION STREAM-WRITE-CHAR>
WARNING: Adding method #<STANDARD-METHOD (#<STANDARD-CLASS VECTOR-OUTPUT-STREAM>)> to an
already called generic function #<STANDARD-GENERIC-FUNCTION STREAM-LINE-COLUMN>
The doc claims
Post by Jean Louis
No warning for standard generic functions
so the above looks like a bug.
I pushed a fix.
Well that is great Sam, thank you much.

I will not post to both lists, I did so as I had
feeling of low activity.

Jean
Jean Louis
2017-07-17 18:33:37 UTC
Permalink
Post by Jean Louis
Post by Sam Steingold
The doc claims
No warning for standard generic functions
so the above looks like a bug.
I pushed a fix.
Well that is great Sam, thank you much.
I will not post to both lists, I did so as I had
feeling of low activity.
Jean
I still get warnings with the hg pull/update and
newest CLISP from development. Although I guess it
is less now, but there is still.

I have tried to suppress warnings but is not
working. I am loading *.asd file and if I place in
top level :depends-on "alexandria" and similar, I
get the warnings.

Jean

WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION PERFORM>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"babel">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
WARNING: Adding method #<STANDARD-METHOD (#<STANDARD-CLASS IN-MEMORY-STREAM>)> to an already
called generic function #<STANDARD-GENERIC-FUNCTION STREAM-ELEMENT-TYPE>
Sam Steingold
2017-07-18 20:48:50 UTC
Permalink
Post by Jean Louis
I still get warnings with the hg pull/update and
newest CLISP from development. Although I guess it
is less now, but there is still.
I am afraid that this works as designed.
(see the do referenced in the previous message).
Post by Jean Louis
I have tried to suppress warnings but is not
working. I am loading *.asd file and if I place in
top level :depends-on "alexandria" and similar, I
get the warnings.
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION PERFORM>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"babel">))> to an already called generic function
I wonder if we should add some ASDF generic functions (e.g., TEST-OP) to
clos::*dynamically-modifiable-generic-function-names*.
I also wonder if we should add a user-level function for that.

Bruno, wdyt?

Thanks.
--
Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.1504
http://steingoldpsychology.com http://www.childpsy.net https://ffii.org
http://islamexposedonline.com http://www.memritv.org http://think-israel.org
There is a lot of information on the Internet. Some of it is even true!
Jean Louis
2017-07-19 07:49:18 UTC
Permalink
Hello,

Is there any way to disable it temporarily? This
is happening only during compiling.

This one does not work, and I was thinking it should:
(setf CUSTOM:*COMPILE-WARNINGS* nil)

I have also disabled these:
(setf *compile-verbose* nil)
(setf *compile-print* nil)

Jean
Post by Sam Steingold
Post by Jean Louis
I still get warnings with the hg pull/update and
newest CLISP from development. Although I guess it
is less now, but there is still.
I am afraid that this works as designed.
(see the do referenced in the previous message).
Post by Jean Louis
I have tried to suppress warnings but is not
working. I am loading *.asd file and if I place in
top level :depends-on "alexandria" and similar, I
get the warnings.
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION OPERATION-DONE-P>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"alexandria">))> to an already called generic function
#<STANDARD-GENERIC-FUNCTION PERFORM>
WARNING: Adding method
#<STANDARD-METHOD (#<STANDARD-CLASS TEST-OP> (EQL #<SYSTEM
"babel">))> to an already called generic function
I wonder if we should add some ASDF generic functions (e.g., TEST-OP) to
clos::*dynamically-modifiable-generic-function-names*.
I also wonder if we should add a user-level function for that.
Bruno, wdyt?
Thanks.
Loading...