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

Diff of /gcl/lsp/seq.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Sat Sep 21 23:15:14 2002 UTC revision 1.3 by camm, Tue Sep 24 14:47:01 2002 UTC
# Line 50  Line 50 
50                        (if iesp                        (if iesp
51                            (make-list size :initial-element initial-element)                            (make-list size :initial-element initial-element)
52                            (make-list size))))                            (make-list size))))
53                 (format nil "~A" (caddr type))                 (unless (or (eq (car type) 'array)
54                 (unless (and (or (eq (car type) 'array)                             (eq (car type) 'simple-array))
                                 (eq (car type) 'simple-array))  
                             (not (si::fixnump (car (caddr type)))))  
55                         (error "~S is not a sequence type." type))                         (error "~S is not a sequence type." type))
56                   (unless (or (not (si::fixnump (car (caddr type))))
57                               (equal (car (caddr type)) size))
58                           (error "Cannot make-sequence of type ~S and size ~S." type size))
59                 (or (cadr type) t))))                 (or (cadr type) t))))
60    (setq element-type (si::best-array-element-type element-type))    (setq element-type (si::best-array-element-type element-type))
61    (setq sequence (si:make-vector element-type size nil nil nil nil nil))    (setq sequence (si:make-vector element-type size nil nil nil nil nil))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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