From 1bbab191fb96c2a96e294ad12db6effc0e62eb62 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 20 Oct 1991 23:31:55 +0000
Subject: [PATCH] PRINT-BIGNUM tables need to be 37 long, since bases go up to
 36.

---
 code/print.lisp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/code/print.lisp b/code/print.lisp
index f2563b14f..efafe3ad4 100644
--- a/code/print.lisp
+++ b/code/print.lisp
@@ -7,12 +7,10 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.23 1991/09/13 06:24:09 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.24 1991/10/20 23:31:55 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.23 1991/09/13 06:24:09 wlott Exp $
-;;;
 ;;; CMU Common Lisp printer.
 ;;;
 ;;; Written by Neal Feinberg, Bill Maddox, Steven Handerson, and Skef Wholey.
@@ -839,12 +837,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 :initial-element nil))
+(defparameter *base-power* (make-array 37 :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 :initial-element nil))
+(defparameter *fixnum-power--1* (make-array 37 :initial-element nil))
 
 ;;; PRINT-BIGNUM -- internal.
 ;;;
-- 
GitLab