/[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.21 by dtc, Sat Nov 1 22:58:26 1997 UTC revision 1.22 by dtc, Fri Jan 9 10:07:48 1998 UTC
# Line 238  Line 238 
238                `(truly-the ,spec                `(truly-the ,spec
239                            (allocate-vector ,typecode length ,nwords-form))))                            (allocate-vector ,typecode length ,nwords-form))))
240          (values          (values
241           (if (and default-initial-element           (cond ((and default-initial-element
242                    (or (null initial-element)                       (or (null initial-element)
243                        (and (constant-continuation-p initial-element)                           (and (constant-continuation-p initial-element)
244                             (eql (continuation-value initial-element)                                (eql (continuation-value initial-element)
245                                  default-initial-element))))                                     default-initial-element))))
246               constructor                  (unless (csubtypep (ctype-of default-initial-element)
247               `(truly-the ,spec (fill ,constructor initial-element)))                                     eltype-type)
248                      (compiler-note "Default initial element ~s is not a ~s."
249                                     default-initial-element eltype))
250                    constructor)
251                   (t
252                    `(truly-the ,spec (fill ,constructor initial-element))))
253           '((declare (type index length))))))))           '((declare (type index length))))))))
254    
255  ;;; MAKE-ARRAY  --  transform.  ;;; MAKE-ARRAY  --  transform.

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5