From 8bcb05a842ffdca9e6225856cf43dd1f3e4ed0a6 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 13 Nov 1990 11:30:49 +0000
Subject: [PATCH] Supply an :initial-element for calls to make-array.

---
 compiler/backend.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/backend.lisp b/compiler/backend.lisp
index 4ba6d49e6..fef4125c9 100644
--- a/compiler/backend.lisp
+++ b/compiler/backend.lisp
@@ -110,7 +110,8 @@
   ;; Translates from SC numbers to SC info structures.  SC numbers are always
   ;; used instead of names at run time, so changing this vector changes all the
   ;; references.
-  (sc-numbers (make-array sc-number-limit) :type sc-vector)
+  (sc-numbers (make-array sc-number-limit :initial-element nil)
+	      :type sc-vector)
 
   ;; A list of all the SBs defined, so that we can easily iterate over them.
   (sb-list () :type list)
@@ -128,7 +129,8 @@
   (meta-sb-names (make-hash-table :test #'eq) :type hash-table)
 
   ;; Like *SC-Numbers*, but is updated at meta-compile time.
-  (meta-sc-numbers (make-array sc-number-limit) :type sc-vector)
+  (meta-sc-numbers (make-array sc-number-limit :initial-element nil)
+		   :type sc-vector)
 
   ;; Translates from primitive type names to the corresponding primitive-type
   ;; structure.
-- 
GitLab