initialize args MAKE-INSTANCE-ARGS and adds the resulting
object to the list of test results."
(with-run-state (result-list current-test)
initialize args MAKE-INSTANCE-ARGS and adds the resulting
object to the list of test results."
(with-run-state (result-list current-test)
(test-failure (format *test-dribble* "f"))
(test-skipped (format *test-dribble* "s")))
(push result result-list))))
(test-failure (format *test-dribble* "f"))
(test-skipped (format *test-dribble* "s")))
(push result result-list))))