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

Added explicit initial-elements to uses of make-array where we needed

the initial element to be nil.
parent 196ad3f3
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.14 1990/11/19 05:06:13 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.15 1990/11/19 15:00:41 wlott Exp $
;;;
;;; CMU Common Lisp printer.
;;;
......@@ -834,12 +834,12 @@
;;; each *print-base*. We want this number as close to *most-positive-fixnum*
;;; as possible, i.e. (floor (log most-positive-fixnum *print-base*)).
;;;
(defparameter *base-power* (make-array 36))
(defparameter *base-power* (make-array 36 :initial-element nil))
;;; *FIXNUM-POWER--1* holds the number of digits for each *print-base* that
;;; fit in the corresponding *base-power*.
;;;
(defparameter *fixnum-power--1* (make-array 36))
(defparameter *fixnum-power--1* (make-array 36 :initial-element nil))
;;; PRINT-BIGNUM -- internal.
;;;
......
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