Commit a7377310 authored by pfdietz's avatar pfdietz
Browse files

Added conditionalized code to muffle unreachable code warnings in sbcl (thanks CR.)

parent f37fb3d7
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment