runlisp-base.conf (cmucl/run-script): Use `muffle-warning' function.

In place of the unnecessarily complicated handle-rolled version.

diff --git a/runlisp-base.conf b/runlisp-base.conf
index 7634e422460fe34fe5557a6690decde4760751b0..7d0d5c5a8a685c25ab85bea7b8967b29f6568d5d 100644 (file)
--- 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
                $?@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})"}
                                          (setf ext:*require-verbose* nil)
                                          ${run-script-prelude}
                                          ${clear-cl-user})"}