diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp index 885a16a6e36cf202c255fd2fb0eaeba0d2be4f38..32a844ad4b7c3b9c9742bba122886e868167b41e 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