From 172e704fc14639b26f5e36c51665474a5363bc86 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 4 Jun 1990 06:13:43 +0000
Subject: [PATCH] Oops, deleted the (:variant-vars ...) option from the wrong
 def-vop.

---
 compiler/mips/type-vops.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/type-vops.lisp b/compiler/mips/type-vops.lisp
index b04c336fd..6f67199d9 100644
--- a/compiler/mips/type-vops.lisp
+++ b/compiler/mips/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.16 1990/06/04 06:07:54 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.17 1990/06/04 06:13:43 wlott Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the RT.
@@ -30,7 +30,6 @@
 	  :scs (any-reg descriptor-reg)))
   (:results
    (result :scs (any-reg descriptor-reg)))
-  (:variant-vars type-code error-code)
   (:temporary (:type random :scs (non-descriptor-reg)) temp))
 
 (define-vop (simple-type-predicate)
@@ -39,6 +38,7 @@
   (:conditional)
   (:info target not-p)
   (:policy :fast-safe)
+  (:variant-vars type-code)
   (:temporary (:type random :scs (non-descriptor-reg)) temp)
   (:generator 4
     (test-simple-type value temp target not-p type-code)))
-- 
GitLab