From ab7a045ad6150c2c0afcd91e8e7ddf454be0505e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 6 Dec 1990 18:16:58 +0000 Subject: [PATCH] Made check-fixnum be the type-check VOP for FIXNUM. The whole area of integer-type => primitive-type mapping is pretty confused, but this seems like it should work. --- compiler/sparc/type-vops.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp index bcc4328f7..61f17f33b 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 -- GitLab