Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sat Apr 26 15:02:35 2003 UTC | revision 1.4 by pfdietz, Sat Apr 26 16:05:04 2003 UTC | |
---|---|---|
# | Line 215 | Line 215 |
215 | t t t | t t t |
216 | x y z) | x y z) |
217 | ||
218 | ;;; | |
219 | ||
220 | ;;; Initforms are inherited even if :allocation changes | |
221 | ||
222 | (defclass class-0208a () | |
223 | ((a :allocation :class :initform 'x))) | |
224 | ||
225 | (defclass class-0208b (class-0208a) | |
226 | ((a :allocation :instance))) | |
227 | ||
228 | (deftest class-0208.1 | |
229 | (values | |
230 | (slot-value (make-instance 'class-0208a) 'a) | |
231 | (slot-value (make-instance 'class-0208b) 'a)) | |
232 | x x) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |