Changeset 13410

Timestamp:

Jan 26, 2010, 3:06:46 PM (15 years ago)

Author:

Gary Byers

Message:

In MAKE-UARRAY-1 (which handles some cases of MAKE-ARRAY), try
to avoid setting the initial element if it's binary 0; if it
isn't, use %INIT-MISC rather than UVSET in a loop.

File:

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

trunk/source/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)