diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp index 6cbceaa7c8b5767238f6bd99d986a31e04ba3b2b..327a859369a01d4ef2f80cc9209e930946c27372 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. ;;;