From ec4e32ee8fb26241e710380a70db0e9b7a38692f Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Tue, 8 Jul 2003 13:50:36 +0000
Subject: [PATCH] Fix harmless typo in vop name to be more consistent with
 other fast-char base-char-compare-c vops.

---
 compiler/sparc/char.lisp | 4 ++--
 compiler/x86/char.lisp   | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp
index 4a3c9300d..482cac6c5 100644
--- a/compiler/sparc/char.lisp
+++ b/compiler/sparc/char.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.10 2003/07/01 18:47:01 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.11 2003/07/08 13:50:36 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -166,7 +166,7 @@
   (:translate char<)
   (:variant :ltu :geu))
 
-(define-vop (fast-char>-c/base-char/c base-char-compare-c)
+(define-vop (fast-char>-c/base-char base-char-compare-c)
   (:translate char>)
   (:variant :gtu :leu))
 
diff --git a/compiler/x86/char.lisp b/compiler/x86/char.lisp
index 45521e795..bf2bb425e 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.6 2003/07/01 20:02:01 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.7 2003/07/08 13:50:36 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -190,7 +190,7 @@
   (:translate char<)
   (:variant :b :nb))
 
-(define-vop (fast-char>-c/base-char/c base-char-compare-c)
+(define-vop (fast-char>-c/base-char base-char-compare-c)
   (:translate char>)
   (:variant :a :na))
 
-- 
GitLab