Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Tue May 20 11:41:28 2003 UTC | revision 1.2 by pfdietz, Tue May 27 14:25:01 2003 UTC | |
---|---|---|
# | Line 79 | Line 79 |
79 | ||
80 | (defstruct (struct-include-03b (:include struct-include-03a (a)))) | (defstruct (struct-include-03b (:include struct-include-03a (a)))) |
81 | ||
82 | (deftest struct-include.5 | (deftest struct-include.5a |
83 | (let ((obj (make-struct-include-03b :a 100))) | (let ((obj (make-struct-include-03b :a 100))) |
84 | (values | (values |
85 | (typep obj 'struct-include-03a) | (typep obj 'struct-include-03a) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |