76 |
|
|
77 |
;;;; |
;;;; |
78 |
|
|
79 |
(defclass class-04 () ((s1 :reader s1-r) (s2 :writer s2-w) (s3 :accessor s3-a))) |
(defclass class-04 () |
80 |
|
((s1 :reader s1-r) (s2 :writer s2-w) (s3 :accessor s3-a))) |
81 |
|
|
82 |
;;; Readers, writers, and accessors |
;;; Readers, writers, and accessors |
83 |
(deftest class-04.1 |
(deftest class-04.1 |
96 |
(s3-a c))) |
(s3-a c))) |
97 |
a b c a b d d c e e e) |
a b c a b d d c e e e) |
98 |
|
|
99 |
|
(deftest class-04.2 |
100 |
|
(notnot-mv (typep #'s1-r 'generic-function)) |
101 |
|
t) |
102 |
|
|
103 |
|
(deftest class-04.3 |
104 |
|
(notnot-mv (typep #'s2-w 'generic-function)) |
105 |
|
t) |
106 |
|
|
107 |
|
(deftest class-04.4 |
108 |
|
(notnot-mv (typep #'s3-a 'generic-function)) |
109 |
|
t) |
110 |
|
|
111 |
|
(deftest class-04.5 |
112 |
|
(notnot-mv (typep #'(setf s3-a) 'generic-function)) |
113 |
|
t) |
114 |
|
|
115 |
;;;; |
;;;; |
116 |
|
|
117 |
(defclass class-05 () (s1 (s2 :allocation :instance) (s3 :allocation :class))) |
(defclass class-05 () (s1 (s2 :allocation :instance) (s3 :allocation :class))) |