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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by pfdietz, Mon Dec 30 01:38:13 2002 UTC revision 1.12 by pfdietz, Tue Jan 7 03:37:16 2003 UTC
# Line 292  Line 292 
292    
293  (defstruct-with-tests (struct-test-53 (:type vector)  (defstruct-with-tests (struct-test-53 (:type vector)
294                                        (:initial-offset 5))                                        (:initial-offset 5))
295      "This is struct-test-53"
296    a53 b53)    a53 b53)
297    
298  (deftest structure-53-1  (deftest structure-53-1
# Line 302  Line 303 
303  (defstruct-with-tests (struct-test-54 (:type vector)  (defstruct-with-tests (struct-test-54 (:type vector)
304                                        (:initial-offset 2)                                        (:initial-offset 2)
305                                        (:include struct-test-53))                                        (:include struct-test-53))
306      "This is struct-test-54"
307    a54 b54)    a54 b54)
308    
309  (deftest structure-54-1  (deftest structure-54-1
# Line 333  Line 335 
335  (defstruct-with-tests (struct-test-57 (:include struct-test-22))  (defstruct-with-tests (struct-test-57 (:include struct-test-22))
336    c57 d57)    c57 d57)
337    
338    (defstruct-with-tests struct-test-58
339      "This is struct-test-58"  a-58 b-58)
340    
341    (defstruct-with-tests (struct-test-59 (:include struct-test-58))
342      "This is struct-test-59"  a-59 b-59)
 ;;;; Tests of error cases  
   

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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