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