/[gcl]/gcl/ansi-tests/documentation.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/documentation.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Sun May 15 12:19:04 2005 UTC revision 1.4 by pfdietz, Wed May 18 12:26:58 2005 UTC
# Line 91  Line 91 
91                     (equal doc (documentation fn t))))))                     (equal doc (documentation fn t))))))
92    "FOO4")    "FOO4")
93    
94    (deftest documentation.function.t.9
95      (loop for s in *cl-function-symbols*
96            for fn = (symbol-function s)
97            for doc = (documentation fn t)
98            unless (or (null doc) (string doc))
99            collect (list s doc))
100      nil)
101    
102    (deftest documentation.function.t.10
103      (loop for s in *cl-accessor-symbols*
104            for fn = (symbol-function s)
105            for doc = (documentation fn t)
106            unless (or (null doc) (string doc))
107            collect (list s doc))
108      nil)
109    
110    (deftest documentation.function.t.11
111      (loop for s in *cl-macro-symbols*
112            for fn = (macro-function s)
113            for doc = (documentation fn t)
114            unless (or (null doc) (string doc))
115            collect (list s doc))
116      nil)
117    
118    (deftest documentation.function.t.12
119      (loop for s in *cl-standard-generic-function-symbols*
120            for fn = (symbol-function s)
121            for doc = (documentation fn t)
122            unless (or (null doc) (string doc))
123            collect (list s doc))
124      nil)
125    
126  ;;; documentation (x function) (doc-type (eql 'function))  ;;; documentation (x function) (doc-type (eql 'function))
127    
128  (deftest documentation.function.function.1  (deftest documentation.function.function.1
# Line 113  Line 145 
145  (deftest documentation.function.function.3  (deftest documentation.function.function.3
146    (let* ((sym (gensym)))    (let* ((sym (gensym)))
147      (eval `(defmacro ,sym () nil))      (eval `(defmacro ,sym () nil))
148      (documentation (symbol-function sym) 'function))      (documentation (macro-function sym) 'function))
149    nil)    nil)
150    
151  (deftest documentation.function.function.4  (deftest documentation.function.function.4
# Line 143  Line 175 
175                     (equal doc (documentation fn 'function))))))                     (equal doc (documentation fn 'function))))))
176    "FOO4A")    "FOO4A")
177    
   
178  ;;; documentation (x list) (doc-type (eql 'function))  ;;; documentation (x list) (doc-type (eql 'function))
179    
180  (deftest documentation.list.function.1  (deftest documentation.list.function.1
# Line 232  Line 263 
263                     (equal doc (documentation sym 'function)))))))                     (equal doc (documentation sym 'function)))))))
264    "FOO9B")    "FOO9B")
265    
266    (deftest documentation.symbol.function.7
267      (loop for s in *cl-special-operator-symbols*
268            for doc = (documentation s 'function)
269            unless (or (null doc) (stringp doc))
270            collect (list s doc))
271      nil)
272    
273    (deftest documentation.symbol.function.8
274      (loop for s in *cl-function-or-accessor-symbols*
275            for doc = (documentation s 'function)
276            unless (or (null doc) (stringp doc))
277            collect (list s doc))
278      nil)
279    
280    (deftest documentation.symbol.function.9
281      (loop for s in *cl-macro-symbols*
282            for doc = (documentation s 'function)
283            unless (or (null doc) (stringp doc))
284            collect (list s doc))
285      nil)
286    
287  ;;; documentation (x symbol) (doc-type (eql 'compiler-macro))  ;;; documentation (x symbol) (doc-type (eql 'compiler-macro))
288    
289  (deftest documentation.symbol.compiler-macro.1  (deftest documentation.symbol.compiler-macro.1
# Line 369  Line 421 
421                     (equal doc (documentation class 'type)))))))                     (equal doc (documentation class 'type)))))))
422    nil "FOO17")    nil "FOO17")
423    
424    
425  ;;; documentation (x structure-class) (doc-type (eql 't))  ;;; documentation (x structure-class) (doc-type (eql 't))
426                    
427  (deftest documentation.struct-class.t.1  (deftest documentation.struct-class.t.1
# Line 442  Line 495 
495                   (equal doc (documentation sym 'type))))))                   (equal doc (documentation sym 'type))))))
496    nil "FOO21A")    nil "FOO21A")
497    
498    (deftest documentation.symbol.type.4
499      (loop for s in *cl-all-type-symbols*
500            for doc = (documentation s 'type)
501            unless (or (null doc) (stringp doc))
502            collect (list doc))
503      nil)
504    
505    
506  ;;; documentation (x symbol) (doc-type (eql 'structure))  ;;; documentation (x symbol) (doc-type (eql 'structure))
507    
508  (deftest documentation.symbol.structure.1  (deftest documentation.symbol.structure.1
# Line 537  Line 598 
598                   (equal doc (documentation sym 'variable))))))                   (equal doc (documentation sym 'variable))))))
599    nil "FOO27")    nil "FOO27")
600    
601    (deftest documentation.symbol.variable.5
602      (loop for s in *cl-variable-symbols*
603            for doc = (documentation s 'variable)
604            unless (or (null doc) (stringp doc))
605            collect (list s doc))
606      nil)
607    
608    (deftest documentation.symbol.variable.6
609      (loop for s in *cl-constant-symbols*
610            for doc = (documentation s 'variable)
611            unless (or (null doc) (stringp doc))
612            collect (list s doc))
613      nil)
614    
615  ;;; Defining new methods for DOCUMENTATION  ;;; Defining new methods for DOCUMENTATION
616    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26