From 3a47ae080697f4fc58c56a84eedbe1ce3abe1021 Mon Sep 17 00:00:00 2001 From: Samuel Chase Date: Mon, 13 May 2013 01:12:28 +0530 Subject: [PATCH] Add test for string< --- tests/strings.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/strings.lisp b/tests/strings.lisp index f3ff08f..eab8a6b 100644 --- a/tests/strings.lisp +++ b/tests/strings.lisp @@ -17,6 +17,8 @@ (test (not (string= "Foo" "foo"))) (test (not (string= "foo" "foox"))) +(test (= (string< "one" "two") 0)) + ;;; BUG: The compiler will macroexpand the forms below (char str N) ;;; will expand to internal SBCL code instead of our (setf char). It ;;; is because macrodefinitions during bootstrapping are not included -- 1.7.10.4