157 |
nil) |
nil) |
158 |
|
|
159 |
(defun do-test (&optional (name *test*)) |
(defun do-test (&optional (name *test*)) |
160 |
(do-entry (get-entry name))) |
#-sbcl (do-entry (get-entry name)) |
161 |
|
#+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning)) |
162 |
|
(do-entry (get-entry name)))) |
163 |
|
|
164 |
(defun my-aref (a &rest args) |
(defun my-aref (a &rest args) |
165 |
(apply #'aref a args)) |
(apply #'aref a args)) |
314 |
(do-entries stream)))) |
(do-entries stream)))) |
315 |
|
|
316 |
(defun do-entries (s) |
(defun do-entries (s) |
317 |
|
#-sbcl (do-entries* s) |
318 |
|
#+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning)) |
319 |
|
(do-entries* s))) |
320 |
|
|
321 |
|
(defun do-entries* (s) |
322 |
(format s "~&Doing ~A pending test~:P ~ |
(format s "~&Doing ~A pending test~:P ~ |
323 |
of ~A tests total.~%" |
of ~A tests total.~%" |
324 |
(count t (the list (cdr *entries*)) :key #'pend) |
(count t (the list (cdr *entries*)) :key #'pend) |