/[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.6 by pfdietz, Thu Dec 12 03:41:09 2002 UTC revision 1.7 by pfdietz, Fri Dec 13 03:41:01 2002 UTC
# Line 175  Line 175 
175    (b29 'xx  :read-only 1)    (b29 'xx  :read-only 1)
176    c29)    c29)
177    
178    (defstruct-with-tests struct-test-30 #:a30 #:b30)
179    (defstruct-with-tests #:struct-test-31 a31 b31)
180    
181    (defpackage struct-test-package (:use))
182    
183    (defstruct-with-tests struct-test-32
184      struct-test-package::a32 struct-test-package::b32)
185    
186    ;;; If the :conc-name option is given no argument or
187    ;;; a nil argument, the accessor names are the same as
188    ;;; slot names.  Note that this is different from prepending
189    ;;; an empty string, since that may get you a name in
190    ;;; a different package.
191    
192    (defstruct-with-tests (struct-test-33 (:conc-name))
193      struct-test-package::a33 struct-test-package::b33)
194    (defstruct-with-tests (struct-test-34 :conc-name)
195      struct-test-package::a34 struct-test-package::b34)
196    (defstruct-with-tests (struct-test-35 (:conc-name nil))
197      struct-test-package::a35 struct-test-package::b35)
198    
199    (defstruct-with-tests (struct-test-36 (:conc-name ""))
200      struct-test-package::st36-a36 struct-test-package::st26-b36)
201    
202    ;;; List structures
203    
204    (defstruct-with-tests (struct-test-37 (:type list)) a37 b37 c37)
205    (defstruct-with-tests (struct-test-38 (:type list) :named) a38 b38 c38)
206    (defstruct-with-tests (struct-test-39 (:predicate nil)
207                                          (:type list) :named)
208      a39 b39 c39)
209    
210    
211    
212    
213    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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