Re: How to handle these warnings?

On Mon, Oct 23, 2017 at 09:42:20AM -0400, Sam Steingold wrote:
> Jean,
> 
> You are making it very hard to help you.
> It would be nice if you answered all questions I asked previously.
> Please do not assume that I remember what you wrote a month ago.
> 
> > * Jean Louis <[email protected]> [2017-10-20 22:55:16 +0300]:
> >
> > I have tried with the set-global-handler-code,

Thank you, I suppressed those warnings, now I have
these errors only left:

WARNING: System definition file
         #P"/home/data1/protected/lib/lisp/quicklisp/dists/quicklisp/software/cl-base64-20150923-git/cl-base64.asd"
         contains definition for system "cl-base64-tests". Please only define
         "cl-base64" and secondary systems with a name starting with
         "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file
         #P"/home/data1/protected/lib/lisp/quicklisp/dists/quicklisp/software/cl-ppcre-2.0.11/cl-ppcre.asd"
         contains definition for system "cl-ppcre-test". Please only define
         "cl-ppcre" and secondary systems with a name starting with
         "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file
         #P"/home/data1/protected/lib/lisp/quicklisp/dists/quicklisp/software/ironclad-v0.34/ironclad.asd"
         contains definition for system "ironclad-tests". Please only define
         "ironclad" and secondary systems with a name starting with
         "ironclad/" (e.g. "ironclad/test") in that file.
WARNING: System definition file
         #P"/home/data1/protected/lib/lisp/quicklisp/dists/quicklisp/software/nibbles-20170403-git/nibbles.asd"
         contains definition for system "nibbles-tests". Please only define
         "nibbles" and secondary systems with a name starting with "nibbles/"
         (e.g. "nibbles/test") in that file.
WARNING: System definition file
         #P"/home/data1/protected/lib/lisp/quicklisp/dists/quicklisp/software/cl-colors-20151218-git/cl-colors.asd"
         contains definition for system "cl-colors-tests". Please only define
         "cl-colors" and secondary systems with a name starting with
         "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: System definition file
         #P"/home/data1/protected/lib/lisp/quicklisp/dists/quicklisp/software/let-plus-20170124-git/let-plus.asd"
         contains definition for system "let-plus-tests". Please only define
         "let-plus" and secondary systems with a name starting with
         "let-plus/" (e.g. "let-plus/test") in that file.


The full file I am loading it is here below,
excuse my errors in those comments.

I know that I could change those ironclad.asd and
replace - with / to avoid those warning, and now
those warnings shall be maybe suppressed by ASDF
somehow, maybe not CLISP.

still if you have more clues, let me know.

#!/usr/bin/clisp -norc

(setf *load-verbose* nil)
(setf *load-print* nil)
(setf *compile-verbose* nil)
(setf *compile-print* nil)
(setf CUSTOM:*SUPPRESS-SIMILAR-CONSTANT-REDEFINITION-WARNING* t)
(setf CUSTOM:*COMPILE-WARNINGS* nil)

;; (set-global-handler 'clos:gf-replacing-method-warning 'muffle-warning)
;; (set-global-handler 'clos:gf-already-called-warning 'muffle-warning)
;; (set-global-handler 'clos:clos-warning 'muffle-warning)
;; (setf *break-on-signals* t)

;; (ext:set-global-handler
;;  'clos:clos-warning
;;  (lambda (c)
;;    (invoke-restart (find-restart 'abort c))))

;; These do not do anything to errors
;; (setf *read-suppress* t)
(setf CUSTOM:*SUPPRESS-CHECK-REDEFINITION* t)
(setf CUSTOM:*SUPPRESS-SIMILAR-CONSTANT-REDEFINITION-WARNING* t)
(load #P"~/lib/lisp/asdf/build/asdf.fas")
;; (require "asdf")

(load #P"/home/data1/protected/lib/lisp/quicklisp/setup.fas")

;; (ql:quickload "asdf" :verbose nil :silent t)

(setf asdf:*compile-file-warnings-behaviour* :ignore)
(setf asdf:*compile-file-failure-behaviour* :ignore)

;; (format t "Warning: ~a~%"  asdf:*compile-file-warnings-behaviour*)
;; (format t "Failure: ~a~%" asdf:*compile-file-failure-behaviour*)
(push "/home/data1/protected/Programming/git/RCDBusiness/lib/lisp/" asdf:*central-registry*)

(ext:set-global-handler
 'clos:clos-warning
 (lambda (c)
   (invoke-restart (find-restart 'abort c))))

(asdf:load-system "rcd" :verbose nil)

;; (saveinitmem "/home/data1/protected/bin/rcd/rcd.mem" :quiet t :init-function 'rcd-interactive
;;                :verbose nil :norc t :documentation "RCD Business"
;;                :executable t)
(rcd-interactive)

------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
clisp-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clisp-list