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