From: Jean L. <bu...@gn...> - 2017-07-15 17:32:25
|
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 |