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) |