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