diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp index 4a3c9300da8b8ca68311a1096a1108b25b277e56..482cac6c5e463f22ce74be0f3517caabf9d0267a 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 45521e795c1a71bf484de44249d35a91e3905885..bf2bb425e6a4182003a4cdbd66061321ac312611 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))