chiark / gitweb /
runlisp-base.conf: Muffle warnings from CMU CL.
authorMark Wooding <mdw@distorted.org.uk>
Mon, 4 Mar 2024 01:03:12 +0000 (01:03 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Mon, 4 Mar 2024 01:03:12 +0000 (01:03 +0000)
Older versions spew compiler notes about PCL's generated code when
loading ASDF.

runlisp-base.conf

index d733c1c06aa54c277d87e236bbecf5de641c7770..7f7207fc374ea9c9f608fb29c3a780ef68cf2cb7 100644 (file)
@@ -261,7 +261,12 @@ run-script =
        ${command}
                $?@image{-core "${image-path}" -eval "${image-restore}" |
                         -batch -noinit -quiet
-                                -eval "(progn
+                                -eval "(handler-bind
+                                           ((warning
+                                              (lambda (#0=#:c)
+                                                (declare (ignore #0#))
+                                                (invoke-restart
+                                                 'muffle-warning))))
                                          (setf ext:*require-verbose* nil)
                                          ${run-script-prelude}
                                          ${clear-cl-user})"}