From 6f628e8f45d268571bf98d79faf76444ef7adacb Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Tue, 1 Jul 2003 20:02:01 +0000
Subject: [PATCH] Oops.  Fix typos.

---
 compiler/x86/char.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/x86/char.lisp b/compiler/x86/char.lisp
index 47cca6351..45521e795 100644
--- a/compiler/x86/char.lisp
+++ b/compiler/x86/char.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.5 2003/07/01 18:47:01 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.6 2003/07/01 20:02:01 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -180,7 +180,7 @@
   (:variant-vars condition not-condition)
   (:generator 2
     (inst cmp x (char-code y))
-    (inst jump (if not-p not-condition condition) target)))
+    (inst jmp (if not-p not-condition condition) target)))
 
 (define-vop (fast-char=-c/base-char base-char-compare-c)
   (:translate char=)
@@ -188,9 +188,9 @@
 
 (define-vop (fast-char<-c/base-char base-char-compare-c)
   (:translate char<)
-  (:variant :ltu :geu))
+  (:variant :b :nb))
 
 (define-vop (fast-char>-c/base-char/c base-char-compare-c)
   (:translate char>)
-  (:variant :gtu :leu))
+  (:variant :a :na))
 
-- 
GitLab