/[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.1.1.1 by wfs, Mon Dec 6 22:44:07 1999 UTC revision 1.2 by camm, Sat Sep 21 23:15:14 2002 UTC
# Line 45  Line 45 
45                ((or (eq type 'simple-vector) (eq type 'vector)) t)                ((or (eq type 'simple-vector) (eq type 'vector)) t)
46                (t                (t
47                 (setq type (normalize-type type))                 (setq type (normalize-type type))
48                 (when (eq (car type) 'list)                 (when (subtypep (car type) 'list)
49                       (return-from make-sequence                       (return-from make-sequence
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                 (unless (or (eq (car type) 'array)                 (format nil "~A" (caddr type))
54                             (eq (car type) 'simple-array))                 (unless (and (or (eq (car type) 'array)
55                                    (eq (car type) 'simple-array))
56                                (not (si::fixnump (car (caddr type)))))
57                         (error "~S is not a sequence type." type))                         (error "~S is not a sequence type." type))
58                 (or (cadr type) t))))                 (or (cadr type) t))))
59    (setq element-type (si::best-array-element-type element-type))    (setq element-type (si::best-array-element-type element-type))

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

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