From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 4 Mar 2024 01:03:12 +0000 (+0000)
Subject: runlisp-base.conf: Muffle warnings from CMU CL.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/runlisp/commitdiff_plain/574db4d92e1e9e043b8729ece64f96d16a705478

runlisp-base.conf: Muffle warnings from CMU CL.

Older versions spew compiler notes about PCL's generated code when
loading ASDF.
---

diff --git a/runlisp-base.conf b/runlisp-base.conf
index d733c1c..7f7207f 100644
--- a/runlisp-base.conf
+++ b/runlisp-base.conf
@@ -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})"}