/[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.4 by pfdietz, Tue Dec 10 05:07:21 2002 UTC revision 1.5 by pfdietz, Wed Dec 11 13:35:16 2002 UTC
# Line 138  Line 138 
138  (defstruct-with-tests (struct-test-12 (:conc-name BLAH-)) a12 b12)  (defstruct-with-tests (struct-test-12 (:conc-name BLAH-)) a12 b12)
139  (defstruct-with-tests (struct-test-13 (:conc-name #\X)) foo-a13 foo-b13)  (defstruct-with-tests (struct-test-13 (:conc-name #\X)) foo-a13 foo-b13)
140    
141  ;;; More to come  (defstruct-with-tests (struct-test-14 (:predicate)) a14 b14)
142    (defstruct-with-tests (struct-test-15 (:predicate nil)) a15 b15)
143    (defstruct-with-tests (struct-test-16 :predicate) a16 b16)
144    (defstruct-with-tests (struct-test-17
145                           (:predicate struct-test-17-alternate-pred))
146      a17 b17)
147    
148    (defstruct-with-tests (struct-test-18 :copier) a18 b18)
149    (defstruct-with-tests (struct-test-19 (:copier)) a19 b19)
150    (defstruct-with-tests (struct-test-20 (:copier nil)) a20 b20)
151    (defstruct-with-tests (struct-test-21 (:copier struct-test-21-alt-copier))
152      a21 b21)
153    
154    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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