diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp index 9e1a994b0a68b45b91762033497d0b1262347ebc..5dee51fa2ec182466f2dc185426d7b37fde1f819 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: