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