From 51c47adaf77e7e99b49f52dac6a9efd0f3508d14 Mon Sep 17 00:00:00 2001
Message-Id: <51c47adaf77e7e99b49f52dac6a9efd0f3508d14.1746117450.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Fri, 13 Sep 2024 14:25:27 +0100
Subject: [PATCH] runlisp-base.conf (cmucl/run-script): Use `muffle-warning'
 function.
Organization: Straylight/Edgeware

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

In place of the unnecessarily complicated handle-rolled version.
---
 runlisp-base.conf | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/runlisp-base.conf b/runlisp-base.conf
index 7634e42..7d0d5c5 100644
--- a/runlisp-base.conf
+++ b/runlisp-base.conf
@@ -289,11 +289,7 @@ run-script =
 		$?@image{-core "${image-path}" -eval "${image-restore}" |
 			 -batch -noinit -quiet
 				 -eval "(handler-bind
-					    ((warning
-					       (lambda (#0=#:c)
-						 (declare (ignore #0#))
-						 (invoke-restart
-						  'muffle-warning))))
+					    ((warning #'muffle-warning))
 					  (setf ext:*require-verbose* nil)
 					  ${run-script-prelude}
 					  ${clear-cl-user})"}
-- 
[mdw]