Commit 844f1365 authored by pfdietz's avatar pfdietz
Browse files

Changed DO-TEST to get rid of warning in compile/load under SBCL

parent 61b7cdf0
......@@ -174,11 +174,13 @@
(t (apply #'warn args)))
nil)
(defun do-test (&optional (name *test*)
&key
((:catch-errors *catch-errors*) *catch-errors*)
((:compile *compile-tests*) *compile-tests*))
(do-entry (get-entry name)))
(defun do-test (&optional (name *test*) &rest key-args)
(flet ((%parse-key-args
(&key
((:catch-errors *catch-errors*) *catch-errors*)
((:compile *compile-tests*) *compile-tests*))
(do-entry (get-entry name))))
(apply #'%parse-key-args key-args)))
(defun my-aref (a &rest args)
(apply #'aref a args))
......
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