From de3f857866e3ca23ba270e831312ea6e13d8f9f8 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 29 Jul 2002 13:56:22 +0000
Subject: [PATCH] Definitions for two-arg-string< and two-arg-string> were
 wrong.

(Noted by Bob Rogers.)
---
 code/byte-interp.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp
index 9e1a994b0..5dee51fa2 100644
--- a/code/byte-interp.lisp
+++ b/code/byte-interp.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/code/byte-interp.lisp,v 1.33 1999/02/25 13:02:57 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.34 2002/07/29 13:56:22 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -509,8 +509,8 @@
 (defun two-arg-char-lessp (x y) (char-lessp x y))
 (defun two-arg-char-greaterp (x y) (char-greaterp x y))
 (defun two-arg-string= (x y) (string= x y))
-(defun two-arg-string< (x y) (string= x y))
-(defun two-arg-string> (x y) (string= x y))
+(defun two-arg-string< (x y) (string< x y))
+(defun two-arg-string> (x y) (string> x y))
 
 
 ;;;; Misc primitive stubs:
-- 
GitLab