From a7377310e240acc444faff4d3cc22a9c604d09fb Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 1 Aug 2003 23:51:41 +0000
Subject: [PATCH] Added conditionalized code to muffle unreachable code
 warnings in sbcl (thanks CR.)

---
 ansi-tests/rt.lsp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 6f69eb1e..501d38fe 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -157,7 +157,9 @@
   nil)
 
 (defun do-test (&optional (name *test*))
-  (do-entry (get-entry name)))
+  #-sbcl (do-entry (get-entry name))
+  #+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning))
+		       (do-entry (get-entry name))))
 
 (defun my-aref (a &rest args)
   (apply #'aref a args))
@@ -312,6 +314,11 @@
 	(do-entries stream))))
 
 (defun do-entries (s)
+  #-sbcl (do-entries* s)
+  #+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning))
+		       (do-entries* s)))
+
+(defun do-entries* (s)
   (format s "~&Doing ~A pending test~:P ~
              of ~A tests total.~%"
           (count t (the list (cdr *entries*)) :key #'pend)
-- 
GitLab