diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp index bcc4328f7338d4a1e1dc13ee5879d1a25188302c..61f17f33bfaeca4fae23cfb6712953273a716969 100644 --- a/compiler/sparc/type-vops.lisp +++ b/compiler/sparc/type-vops.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.1 1990/11/30 17:05:06 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.2 1990/12/06 18:16:58 ram Exp $ ;;; ;;; This file contains the VM definition of type testing and checking VOPs ;;; for the SPARC. @@ -64,7 +64,7 @@ ); eval-when (compile eval) -(def-type-vops fixnump check-fixnum nil object-not-fixnum-error +(def-type-vops fixnump check-fixnum fixnum object-not-fixnum-error vm:even-fixnum-type vm:odd-fixnum-type) (def-type-vops functionp check-function function