diff --git a/ansi-tests/apropos.lsp b/ansi-tests/apropos.lsp index baec6655431c3157ab1bbfb9aa7b52259e88f0a8..a0dc0d0bf93dda8978ac078bebe64b9c35028f74 100644 --- a/ansi-tests/apropos.lsp +++ b/ansi-tests/apropos.lsp @@ -62,6 +62,13 @@ (notnot (search "CAR" s :test #'string-equal))) t) +(deftest apropos.8 + (let ((s (with-output-to-string + (*standard-output*) + (assert (null (multiple-value-list (apropos "CAR" nil))))))) + (notnot (search "CAR" s :test #'string-equal))) + t) + ;;; Error tests (deftest apropos.error.1