/[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.5 by camm, Tue Oct 1 04:37:33 2002 UTC revision 1.6 by camm, Thu Oct 3 05:32:38 2002 UTC
# Line 57  Line 57 
57                 (unless (or (eq (car type) 'array)                 (unless (or (eq (car type) 'array)
58                             (eq (car type) 'simple-array))                             (eq (car type) 'simple-array))
59                   (specific-error :wrong-type-argument "~S is not of type ~S."                   (specific-error :wrong-type-argument "~S is not of type ~S."
60                                   type "sequence"))                                   type 'sequence))
61                 (unless (or (not (si::fixnump (car (caddr type))))                 (let ((ssize (caddr type)))
62                             (equal (car (caddr type)) size))                   (if (listp ssize) (setq ssize (car ssize)))
63                     (if (not (si::fixnump ssize)) (setq ssize size))
64                     (unless (equal ssize size)
65                   (specific-error :wrong-type-argument "~S is not of type ~S."                   (specific-error :wrong-type-argument "~S is not of type ~S."
66                                   type (format nil "~S (size ~S)" type size)))                                   type (format nil "~S (size ~S)" type size))))
67                 (or (cadr type) t))))                 (or (cadr type) t))))
68    (setq element-type (si::best-array-element-type element-type))    (setq element-type (si::best-array-element-type element-type))
69    (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.5  
changed lines
  Added in v.1.6

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