From 196ad3f3364171aede181a62f3dd92cca1f52cba Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 19 Nov 1990 13:39:16 +0000
Subject: [PATCH] Added initial-elements to make-array calls.

---
 code/hash.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/code/hash.lisp b/code/hash.lisp
index de2c3ad72..74f9d13ff 100644
--- a/code/hash.lisp
+++ b/code/hash.lisp
@@ -120,7 +120,7 @@
   (declare (fixnum new-length))
   "Rehashes a hash table and replaces the TABLE entry in the structure if
    someone hasn't done so already.  New vector is of NEW-LENGTH."
-  (do ((new-vector (make-array new-length))
+  (do ((new-vector (make-array new-length :initial-element nil))
        (i 0 (1+ i))
        (size (hash-table-size structure))
        (hashing-function (case (hash-table-kind structure)
@@ -241,9 +241,10 @@
 			     :rehash-threshold rehash-threshold
 			     :table
 			     (if (eq test 'equal)
-				 (make-array size)
+				 (make-array size :initial-element nil)
 				 (%primitive set-vector-subtype
-					     (make-array size)
+					     (make-array size
+							 :initial-element nil)
 					     valid-hashing))
 			     :kind test)))
 
-- 
GitLab