From 0de3e0e66068057a0993dbfae5e6fe805773264f Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 26 Dec 2004 15:57:29 +0000 Subject: [PATCH] Added apropos.8 --- ansi-tests/apropos.lsp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ansi-tests/apropos.lsp b/ansi-tests/apropos.lsp index baec6655..a0dc0d0b 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 -- GitLab