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