/[cmucl]/src/compiler/array-tran.lisp
ViewVC logotype

Diff of /src/compiler/array-tran.lisp

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

revision 1.41 by rtoy, Fri Jun 30 18:41:23 2006 UTC revision 1.42 by rtoy, Wed Mar 5 14:31:30 2008 UTC
# Line 196  Line 196 
196                (t                (t
197                 '*))                 '*))
198         ,(cond ((not simple)         ,(cond ((not simple)
199                 '*)                 ;; Can't derive the actual dimensions lest someone do
200                   ;; an ADJUST-ARRAY, but we can try to get the rank
201                   ;; correct.
202                   (cond ((constant-continuation-p dims)
203                          (let ((val (continuation-value dims)))
204                            (if (listp val)
205                                (make-list (length val) :initial-element '*)
206                                '(*))))
207                         ((csubtypep (continuation-type dims)
208                                     (specifier-type 'integer))
209                          '(*))
210                         (t
211                          '*)))
212                ((constant-continuation-p dims)                ((constant-continuation-p dims)
213                 (let ((val (continuation-value dims)))                 (let ((val (continuation-value dims)))
214                   (if (listp val) val (list val))))                   (if (listp val) val (list val))))

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

  ViewVC Help
Powered by ViewVC 1.1.5