Changeset 13507

Timestamp:

Mar 9, 2010, 11:48:14 AM (15 years ago)

Author:

gz

Message:

From trunk: r13410 (faster :initial-element in make-array)

Location:

branches/working-0711/ccl

Files:

• . (modified) (1 prop)
• level-1/l1-utils.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-utils.lisp

@@ -1097 +1097 @@
   (let ((vector (%alloc-misc size subtype)))  ; may not get here in that case
     (if initial-element-p
-      (dotimes (i (uvsize vector)) (declare (fixnum i))(uvset vector i initial-element))
+      (cond ((and (eql subtype target::subtag-simple-base-string)
+                  (eql initial-element #\Null)))
+            ((and (eql subtype target::subtag-double-float-vector)
+                  (eql initial-element 0.0d0)))
+            ((and (eql subtype target::subtag-single-float-vector)
+                  (eql initial-element 0.0s0)))
+            (t (or (eql initial-element 0)
+                   (%init-misc initial-element vector))))
       (if initial-contents-p
         (if (null dims) (uvset vector 0 initial-contents)