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