/[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.12 by camm, Wed Oct 12 20:14:17 2005 UTC revision 1.13 by camm, Wed Oct 12 20:47:29 2005 UTC
# Line 33  Line 33 
33  (eval-when (compile) (proclaim '(optimize (safety 1) (space 3))))  (eval-when (compile) (proclaim '(optimize (safety 1) (space 3))))
34    
35  (defun make-sequence-vector (element-type size iesp initial-element)  (defun make-sequence-vector (element-type size iesp initial-element)
   (unless element-type  
     (assert-type type '(member list array)))  
36    (let ((sequence (si:make-vector element-type size nil nil nil nil nil)))    (let ((sequence (si:make-vector element-type size nil nil nil nil nil)))
37      (when iesp      (when iesp
38        (do ((i 0 (1+ i))        (do ((i 0 (1+ i))
# Line 58  Line 56 
56     ((subtypep1 type 'list)     ((subtypep1 type 'list)
57      (make-list size :initial-element (and iesp initial-element)))      (make-list size :initial-element (and iesp initial-element)))
58     ((subtypep1 type 'array)     ((subtypep1 type 'array)
59      (make-sequence-vector (sequence-type-element-type type) size iesp initial-element))      (let ((element-type (sequence-type-element-type type)))
60          (unless element-type
61            (assert-type type '(member list array)))
62          (make-sequence-vector element-type size iesp initial-element)))
63     ((assert-type type '(member list array)))))     ((assert-type type '(member list array)))))
64    
65    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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