From c4061b8fd967ed65ecf5bd6158127c2cfdcdaef5 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 27 Feb 2008 17:08:33 +0000
Subject: [PATCH] Merge fix for compact-info-env from release-19e-branch.

---
 compiler/globaldb.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 65895f8c5..3b47c438a 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.52 2005/11/10 17:43:15 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.53 2008/02/27 17:08:33 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -518,8 +518,7 @@
 
 ;;; The upper limit on the size of the ENTRIES vector in a COMPACT-INFO-ENV.
 ;;;
-(defconstant compact-info-env-entries-bits 16)
-(deftype compact-info-entries-index () `(unsigned-byte ,compact-info-env-entries-bits))
+(deftype compact-info-entries-index () `(and unsigned-byte fixnum))
 
 
 ;;; Type of the values in COMPACT-INFO-ENTRIES-INFO.
-- 
GitLab