Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Sat Apr 26 16:37:33 2003 UTC | revision 1.8 by pfdietz, Sat Apr 26 20:20:07 2003 UTC | |
---|---|---|
# | Line 315 | Line 315 |
315 | z | z |
316 | x y z))) | x y z))) |
317 | ||
318 | ;;; Initforms are inherited even if :allocation changes | |
319 | ||
320 | (defclass class-0211a () | |
321 | ((a :allocation :instance :initform 'x))) | |
322 | ||
323 | (defclass class-0211b (class-0211a) | |
324 | ((a :allocation :class))) | |
325 | ||
326 | (deftest class-0211.1 | |
327 | (values | |
328 | (slot-value (make-instance 'class-0211a) 'a) | |
329 | (slot-value (make-instance 'class-0211b) 'a)) | |
330 | x x) | |
331 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |