791 |
(typep* #'(setf s1-26) 'generic-function))) |
(typep* #'(setf s1-26) 'generic-function))) |
792 |
nil x x t) |
nil x x t) |
793 |
|
|
794 |
|
;;; |
795 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
796 |
|
(defclass class-27 () |
797 |
|
(a (b :initform 10) (c :initarg :c) (d :initarg :d)) |
798 |
|
(:metaclass standard-class) |
799 |
|
(:default-initargs :d 17)) |
800 |
|
|
801 |
|
(deftest class-27.1 |
802 |
|
(let ((class (find-class 'class-27))) |
803 |
|
(values |
804 |
|
(subtypep* 'class-27 'standard-object) |
805 |
|
(subtypep* 'class-27 t) |
806 |
|
(subtypep* 'class-27 (find-class 'standard-object)) |
807 |
|
(subtypep* 'class-27 (find-class t)) |
808 |
|
(subtypep* class 'standard-object) |
809 |
|
(subtypep* class t) |
810 |
|
(subtypep* class (find-class 'standard-object)) |
811 |
|
(subtypep* class (find-class t)))) |
812 |
|
t t t t t t t t) |
813 |
|
|
814 |
|
(deftest class-27.2 |
815 |
|
(let ((c (make-instance 'class-27))) |
816 |
|
(values |
817 |
|
(slot-boundp* c 'a) |
818 |
|
(slot-value c 'b) |
819 |
|
(slot-boundp* c 'c) |
820 |
|
(slot-value c 'd))) |
821 |
|
nil 10 nil 17) |
822 |
|
|
823 |
|
(deftest class-27.3 |
824 |
|
(let ((c (make-instance 'class-27 :c 26 :d 43))) |
825 |
|
(values |
826 |
|
(slot-boundp* c 'a) |
827 |
|
(slot-value c 'b) |
828 |
|
(slot-value c 'c) |
829 |
|
(slot-value c 'd))) |
830 |
|
nil 10 26 43) |