From 03381b60c228e524b01aac05e9416d8861edd202 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 4 Sep 2002 11:21:02 +0000
Subject: [PATCH] Oops.  Undo previous change and put back LOWTAGS-BITS,
 LOWTAG-MASK, and LOWTAG-LIMIT since they're used elsewhere.

---
 compiler/generic/objdef.lisp | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp
index 97f20c7cc..95a684dd9 100644
--- a/compiler/generic/objdef.lisp
+++ b/compiler/generic/objdef.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/generic/objdef.lisp,v 1.46 2002/09/03 16:29:45 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.47 2002/09/04 11:21:02 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -65,6 +65,16 @@
 
 (eval-when (compile eval load)
 
+(defconstant lowtag-bits 3
+  "Number of bits at the low end of a pointer used for type information.")
+
+(defconstant lowtag-mask (1- (ash 1 lowtag-bits))
+  "Mask to extract the low tag bits from a pointer.")
+  
+(defconstant lowtag-limit (ash 1 lowtag-bits)
+  "Exclusive upper bound on the value of the low tag bits from a
+  pointer.")
+  
 (defconstant type-bits 8
   "Number of bits used in the header word of a data block for typeing.")
 
-- 
GitLab