From c3f038f1215e8b75aa969b0fa9002b6c314d9f52 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 22 May 2005 01:03:01 +0000
Subject: [PATCH] Add a documentation test

---
 ansi-tests/defun.lsp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp
index 885a16a6..32a844ad 100644
--- a/ansi-tests/defun.lsp
+++ b/ansi-tests/defun.lsp
@@ -73,6 +73,15 @@
       (defun-test-fun-5)))
   2 1)
 
+;; Documentation
+
+(deftest defun.8
+  (let* ((sym (gensym))
+	 (doc "DEFUN.8")
+	 (form `(defun ,sym () ,doc nil)))
+    (or (documentation sym 'function) doc))
+  "DEFUN.8")
+
 ;;; Error tests
 
 (deftest defun.error.1
-- 
GitLab