From f251bb65cfa65f889e4628c8f4224aa2ef5dd239 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 18 May 2005 12:26:58 +0000 Subject: [PATCH] Fix bug in documentation.function.funtion.3 --- ansi-tests/documentation.lsp | 78 +++++++++++++++++++++++++++++++++++- 1 file changed, 76 insertions(+), 2 deletions(-) diff --git a/ansi-tests/documentation.lsp b/ansi-tests/documentation.lsp index 4b18ef2b..aa37bbf0 100644 --- a/ansi-tests/documentation.lsp +++ b/ansi-tests/documentation.lsp @@ -91,6 +91,38 @@ (equal doc (documentation fn t)))))) "FOO4") +(deftest documentation.function.t.9 + (loop for s in *cl-function-symbols* + for fn = (symbol-function s) + for doc = (documentation fn t) + unless (or (null doc) (string doc)) + collect (list s doc)) + nil) + +(deftest documentation.function.t.10 + (loop for s in *cl-accessor-symbols* + for fn = (symbol-function s) + for doc = (documentation fn t) + unless (or (null doc) (string doc)) + collect (list s doc)) + nil) + +(deftest documentation.function.t.11 + (loop for s in *cl-macro-symbols* + for fn = (macro-function s) + for doc = (documentation fn t) + unless (or (null doc) (string doc)) + collect (list s doc)) + nil) + +(deftest documentation.function.t.12 + (loop for s in *cl-standard-generic-function-symbols* + for fn = (symbol-function s) + for doc = (documentation fn t) + unless (or (null doc) (string doc)) + collect (list s doc)) + nil) + ;;; documentation (x function) (doc-type (eql 'function)) (deftest documentation.function.function.1 @@ -113,7 +145,7 @@ (deftest documentation.function.function.3 (let* ((sym (gensym))) (eval `(defmacro ,sym () nil)) - (documentation (symbol-function sym) 'function)) + (documentation (macro-function sym) 'function)) nil) (deftest documentation.function.function.4 @@ -143,7 +175,6 @@ (equal doc (documentation fn 'function)))))) "FOO4A") - ;;; documentation (x list) (doc-type (eql 'function)) (deftest documentation.list.function.1 @@ -232,6 +263,27 @@ (equal doc (documentation sym 'function))))))) "FOO9B") +(deftest documentation.symbol.function.7 + (loop for s in *cl-special-operator-symbols* + for doc = (documentation s 'function) + unless (or (null doc) (stringp doc)) + collect (list s doc)) + nil) + +(deftest documentation.symbol.function.8 + (loop for s in *cl-function-or-accessor-symbols* + for doc = (documentation s 'function) + unless (or (null doc) (stringp doc)) + collect (list s doc)) + nil) + +(deftest documentation.symbol.function.9 + (loop for s in *cl-macro-symbols* + for doc = (documentation s 'function) + unless (or (null doc) (stringp doc)) + collect (list s doc)) + nil) + ;;; documentation (x symbol) (doc-type (eql 'compiler-macro)) (deftest documentation.symbol.compiler-macro.1 @@ -369,6 +421,7 @@ (equal doc (documentation class 'type))))))) nil "FOO17") + ;;; documentation (x structure-class) (doc-type (eql 't)) (deftest documentation.struct-class.t.1 @@ -442,6 +495,14 @@ (equal doc (documentation sym 'type)))))) nil "FOO21A") +(deftest documentation.symbol.type.4 + (loop for s in *cl-all-type-symbols* + for doc = (documentation s 'type) + unless (or (null doc) (stringp doc)) + collect (list doc)) + nil) + + ;;; documentation (x symbol) (doc-type (eql 'structure)) (deftest documentation.symbol.structure.1 @@ -537,6 +598,19 @@ (equal doc (documentation sym 'variable)))))) nil "FOO27") +(deftest documentation.symbol.variable.5 + (loop for s in *cl-variable-symbols* + for doc = (documentation s 'variable) + unless (or (null doc) (stringp doc)) + collect (list s doc)) + nil) + +(deftest documentation.symbol.variable.6 + (loop for s in *cl-constant-symbols* + for doc = (documentation s 'variable) + unless (or (null doc) (stringp doc)) + collect (list s doc)) + nil) ;;; Defining new methods for DOCUMENTATION -- GitLab