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