From 574db4d92e1e9e043b8729ece64f96d16a705478 Mon Sep 17 00:00:00 2001
Message-Id: <574db4d92e1e9e043b8729ece64f96d16a705478.1715703824.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2024 01:03:12 +0000
Subject: [PATCH] runlisp-base.conf: Muffle warnings from CMU CL.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

Older versions spew compiler notes about PCL's generated code when
loading ASDF.
---
 runlisp-base.conf | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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})"}
-- 
[mdw]