/[gcl]/gcl/ansi-tests/defclass-01.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass-01.lsp

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

revision 1.8 by pfdietz, Thu Apr 24 04:01:46 2003 UTC revision 1.9 by pfdietz, Thu Apr 24 11:50:16 2003 UTC
# Line 662  Line 662 
662       *class-21-s1-initvar-1*       *class-21-s1-initvar-1*
663       *class-21-s1-initvar-2*))       *class-21-s1-initvar-2*))
664    11 y 11 21)    11 y 11 21)
665    
666    ;;; Documentation strings
667    
668    (defclass class-22 ()
669      ((s1 :documentation "This is slot s1 in class class-22")))
670    
671    (deftest class-22.1
672      (notnot-mv (typep (make-instance 'class-22) 'class-22))
673      t)
674    
675    ;;; We can't portably get at the docstring of slots
676    
677    (defclass class-23 ()
678      (s1 s2 s3)
679      (:documentation "This is class-23 in ansi-tests"))
680    
681    (deftest class-23.1
682      (notnot-mv (typep (make-instance 'class-23) 'class-23))
683      t)
684    
685    (deftest class-23.2
686      (let ((doc (documentation 'class-23 'type)))
687        (or (null doc)
688            (equalt doc "This is class-23 in ansi-tests")))
689      t)
690    
691    (deftest class-23.3
692      (let ((doc (documentation (find-class 'class-23) 'type)))
693        (or (null doc)
694            (equalt doc "This is class-23 in ansi-tests")))
695      t)
696    
697    (deftest class-23.4
698      (let ((doc (documentation (find-class 'class-23) t)))
699        (or (null doc)
700            (equalt doc "This is class-23 in ansi-tests")))
701      t)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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