Parent Directory | Revision Log | Patch
revision 1.11 by camm, Wed Oct 12 19:14:06 2005 UTC | revision 1.12 by camm, Wed Oct 12 20:14:17 2005 UTC | |
---|---|---|
# | Line 58 | Line 58 |
58 | ((subtypep1 type 'list) | ((subtypep1 type 'list) |
59 | (make-list size :initial-element (and iesp initial-element))) | (make-list size :initial-element (and iesp initial-element))) |
60 | ((subtypep1 type 'array) | ((subtypep1 type 'array) |
61 | (make-sequence-vector (sequence-type-element-type type)size iesp initial-element)) | (make-sequence-vector (sequence-type-element-type type) size iesp initial-element)) |
62 | ((assert-type type '(member list array))))) | ((assert-type type '(member list array))))) |
63 | ||
64 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |