Skip to content
Snippets Groups Projects
Commit 8bcb05a8 authored by wlott's avatar wlott
Browse files

Supply an :initial-element for calls to make-array.

parent 51a45880
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment