diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp index 27169411e779d62013a90bb609b33792a59018af..75197867117a2a2aebc552203d7f8c8d12f4b09d 100644 --- a/compiler/generic/vm-type.lisp +++ b/compiler/generic/vm-type.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/vm-type.lisp,v 1.42 2003/03/22 16:15:18 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.43 2003/10/13 11:24:14 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -39,7 +39,7 @@ (deftype bit-index () `(integer 0 ,most-positive-fixnum)) ;;; ;;; Offset argument to Ash (a signed bit index). -(deftype ash-index () 'fixnum) +(deftype ash-index () 'integer) ;;; ;;; A lexical environment for macroexpansion. (deftype lexical-environment () 'c::lexenv)