diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 6f69eb1ea0065cda89efccfc903e9225321275cf..501d38fe19659721501f5702cda5300a5f5d30c7 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)