/[gcl]/gcl/ansi-tests/structures-04.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/structures-04.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26