/[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.27 by dtc, Fri Jul 24 17:22:26 1998 UTC revision 1.28 by dtc, Thu Jul 6 18:37:00 2000 UTC
# Line 58  Line 58 
58  (defun assert-new-value-type (new-value array)  (defun assert-new-value-type (new-value array)
59    (let ((type (continuation-type array)))    (let ((type (continuation-type array)))
60      (when (array-type-p type)      (when (array-type-p type)
61        (assert-continuation-type new-value (array-type-element-type type))))        (assert-continuation-optional-type new-value
62                                             (array-type-element-type type))))
63    (continuation-type new-value))    (continuation-type new-value))
64    
65  ;;; Unsupplied-Or-NIL  --  Internal  ;;; Unsupplied-Or-NIL  --  Internal
# Line 193  Line 194 
194                                            (initial-element #\NULL))                                            (initial-element #\NULL))
195    (if (byte-compiling)    (if (byte-compiling)
196        (values nil t)        (values nil t)
197        `(make-array (the index ,length)        `(make-array (the (values index &rest t) ,length)
198                     :element-type ,element-type                     :element-type ,element-type
199                     :initial-element ,initial-element)))                     :initial-element ,initial-element)))
200    

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5