Skip to content
Snippets Groups Projects
Commit 44dd2006 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak compile-asdf. ECL still emits more serious warnings than it should.

parent 6ed10289
No related branches found
No related tags found
No related merge requests found
......@@ -3,11 +3,8 @@
(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3)))
(load (make-pathname :name "script-support" :defaults *load-pathname*))
#+ecl
(eval-when (:compile-toplevel :load-toplevel :execute)
(shadow 'cl:compile-file :common-lisp-user))
#+ecl (defun compile-file (&rest args) (apply 'cl:compile-file args))
#+ecl (trace compile-file)
(defun my-compile-file (&rest args) (apply 'compile-file args))
#+ecl (trace my-compile-file)
(cond
((not (probe-file *asdf-lisp*))
......@@ -22,20 +19,21 @@
(multiple-value-bind (result warnings-p errors-p)
;; style warnings shouldn't abort the compilation [2010/02/03:rpg]
(handler-bind (#+sbcl (sb-c::simple-compiler-note #'muffle-warning)
#+ecl ((or c:compiler-note c::compiler-debug-note) #'muffle-warning)
#+ecl ((or c:compiler-note c::compiler-debug-note
c:compiler-warning) ;; ECL emits more serious warnings than it should.
#'muffle-warning)
(style-warning
#'(lambda (w)
#+ecl
(format *error-output* "~&Got a ~S:~%~A~%" (type-of w) w)
#-ecl ;; escalate style-warnings to warnings - we don't want them.
(warn "Can you please fix ASDF to not emit style-warnings? Got:~%~A" w)
;; escalate style-warnings to warnings - we don't want them.
(warn "Can you please fix ASDF to not emit style-warnings? Got a ~S:~%~A"
(type-of w) w)
(muffle-warning w))))
(compile-file *asdf-lisp* :output-file tmp :print t :verbose t))
(my-compile-file *asdf-lisp* :output-file tmp :print t :verbose t))
(declare (ignore result))
(cond
(errors-p
(leave-lisp "Testsuite failed: ASDF compiled with ERRORS" 2))
#-ecl ;; ECL 10.7.1 has spurious warnings
#-ecl ;; ECL 11.1.1 has spurious warnings
(warnings-p
(leave-lisp "Testsuite failed: ASDF compiled with warnings" 1))
(t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment