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