174 |
(t (apply #'warn args))) |
(t (apply #'warn args))) |
175 |
nil) |
nil) |
176 |
|
|
177 |
(defun do-test (&optional (name *test*) |
(defun do-test (&optional (name *test*) &rest key-args) |
178 |
&key |
(flet ((%parse-key-args |
179 |
((:catch-errors *catch-errors*) *catch-errors*) |
(&key |
180 |
((:compile *compile-tests*) *compile-tests*)) |
((:catch-errors *catch-errors*) *catch-errors*) |
181 |
(do-entry (get-entry name))) |
((:compile *compile-tests*) *compile-tests*)) |
182 |
|
(do-entry (get-entry name)))) |
183 |
|
(apply #'%parse-key-args key-args))) |
184 |
|
|
185 |
(defun my-aref (a &rest args) |
(defun my-aref (a &rest args) |
186 |
(apply #'aref a args)) |
(apply #'aref a args)) |