/[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.2 by pfdietz, Tue May 27 14:25:01 2003 UTC revision 1.3 by pfdietz, Sat Aug 9 17:53:30 2003 UTC
# Line 51  Line 51 
51  (deftest struct-include.3  (deftest struct-include.3
52    (let ((obj (make-struct-include-02b)))    (let ((obj (make-struct-include-02b)))
53      (values      (values
54       (typep obj 'struct-include-02a)       (typep* obj 'struct-include-02a)
55       (typep obj 'struct-include-02b)       (typep* obj 'struct-include-02b)
56       (struct-include-02a-a obj)       (struct-include-02a-a obj)
57       (struct-include-02b-a obj)))       (struct-include-02b-a obj)))
58    t t 10 10)    t t 10 10)
# Line 60  Line 60 
60  (deftest struct-include.4  (deftest struct-include.4
61    (let ((obj (make-struct-include-02a)))    (let ((obj (make-struct-include-02a)))
62      (values      (values
63       (typep obj 'struct-include-02a)       (typep* obj 'struct-include-02a)
64       (typep obj 'struct-include-02b)       (typep* obj 'struct-include-02b)
65       (struct-include-02a-a obj)))       (struct-include-02a-a obj)))
66    t nil 0)    t nil 0)
67    
68  (deftest struct-include.5  (deftest struct-include.5
69    (let ((obj (make-struct-include-02b :a 100)))    (let ((obj (make-struct-include-02b :a 100)))
70      (values      (values
71       (typep obj 'struct-include-02a)       (typep* obj 'struct-include-02a)
72       (typep obj 'struct-include-02b)       (typep* obj 'struct-include-02b)
73       (struct-include-02a-a obj)       (struct-include-02a-a obj)
74       (struct-include-02b-a obj)))       (struct-include-02b-a obj)))
75    t t 100 100)    t t 100 100)
# Line 82  Line 82 
82  (deftest struct-include.5a  (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)
86       (typep obj 'struct-include-03b)       (typep* obj 'struct-include-03b)
87       (struct-include-03a-a obj)       (struct-include-03a-a obj)
88       (struct-include-03b-a obj)))       (struct-include-03b-a obj)))
89    t t 100 100)    t t 100 100)
# Line 96  Line 96 
96  (deftest struct-include.6  (deftest struct-include.6
97    (let ((obj (make-struct-include-04b)))    (let ((obj (make-struct-include-04b)))
98      (values      (values
99       (typep obj 'struct-include-04a)       (typep* obj 'struct-include-04a)
100       (typep obj 'struct-include-04b)       (typep* obj 'struct-include-04b)
101       (struct-include-04a-a obj)       (struct-include-04a-a obj)
102       (struct-include-04b-a obj)))       (struct-include-04b-a obj)))
103    t t 0 0)    t t 0 0)
# Line 105  Line 105 
105  (deftest struct-include.7  (deftest struct-include.7
106    (let ((obj (make-struct-include-04b :a 1 :b 2)))    (let ((obj (make-struct-include-04b :a 1 :b 2)))
107      (values      (values
108       (typep obj 'struct-include-04a)       (typep* obj 'struct-include-04a)
109       (typep obj 'struct-include-04b)       (typep* obj 'struct-include-04b)
110       (struct-include-04a-a obj)       (struct-include-04a-a obj)
111       (struct-include-04b-a obj)       (struct-include-04b-a obj)
112       (struct-include-04a-b obj)       (struct-include-04a-b obj)

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

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