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