From e788270231818133051a7ed44f61e1d8062b8522 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 3 Nov 1990 15:35:27 +0000
Subject: [PATCH] Put back defvar of *any-primitive-type* so that other vm
 specific files can refer to it.

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

diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp
index 6cbceaa7c..327a85936 100644
--- a/compiler/generic/primtype.lisp
+++ b/compiler/generic/primtype.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.1 1990/11/03 03:16:46 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.2 1990/11/03 15:35:27 wlott Exp $
 ;;;
 ;;; This file contains the machine independent aspects of the object
 ;;; representation and primitive types.
@@ -22,7 +22,8 @@
 ;;; *Anything*
 ;;; 
 (def-primitive-type t (descriptor-reg))
-(setf (backend-any-primitive-type *backend*) (primitive-type-or-lose 't))
+(defvar *any-primitive-type* (primitive-type-or-lose 't))
+(setf (backend-any-primitive-type *backend*) *any-primitive-type*)
 
 ;;; Primitive integer types that fit in registers.
 ;;;
-- 
GitLab