/[gcl]/gcl/lsp/gcl_seq.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_seq.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

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