/[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.8 by pfdietz, Fri Dec 13 03:51:03 2002 UTC revision 1.9 by pfdietz, Fri Dec 13 13:26:49 2002 UTC
# Line 199  Line 199 
199  (defstruct-with-tests (struct-test-36 (:conc-name ""))  (defstruct-with-tests (struct-test-36 (:conc-name ""))
200    struct-test-package::st36-a36 struct-test-package::st26-b36)    struct-test-package::st36-a36 struct-test-package::st26-b36)
201    
202  ;;; List structures  ;;; List and vector structures
203    
204  (defstruct-with-tests (struct-test-37 (:type list)) a37 b37 c37)  (defstruct-with-tests (struct-test-37 (:type list)) a37 b37 c37)
205  (defstruct-with-tests (struct-test-38 (:type list) :named) a38 b38 c38)  (defstruct-with-tests (struct-test-38 (:type list) :named) a38 b38 c38)
# Line 207  Line 207 
207                                        (:type list) :named)                                        (:type list) :named)
208    a39 b39 c39)    a39 b39 c39)
209    
 ;;; Vector structures  
   
210  (defstruct-with-tests (struct-test-40 (:type vector)) a40 b40)  (defstruct-with-tests (struct-test-40 (:type vector)) a40 b40)
211  (defstruct-with-tests (struct-test-41 (:type vector) :named) a41 b41)  (defstruct-with-tests (struct-test-41 (:type vector) :named) a41 b41)
212  (defstruct-with-tests (struct-test-42 (:type (vector t))) a42 b42)  (defstruct-with-tests (struct-test-42 (:type (vector t))) a42 b42)
213  (defstruct-with-tests (struct-test-43 (:type (vector t)) :named) a43 b43)  (defstruct-with-tests (struct-test-43 (:type (vector t)) :named) a43 b43)
214    
215    (defstruct-with-tests (struct-test-44 (:type list))
216      (a44 0 :type integer)
217      (b44 'a :type symbol))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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