X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstring.pure.lisp;h=1b659fdc22b4e7ca6e6ecf5d6602121fd4c0c127;hb=1714224f33ba559eab11af8827a78f9a5aebd698;hp=702dfee6f8cc04881c41757761c6129c813d4d27;hpb=b34c64b50e8ade72fabb565a38841c4710ee8f40;p=sbcl.git

diff --git a/tests/string.pure.lisp b/tests/string.pure.lisp
index 702dfee..1b659fd 100644
--- a/tests/string.pure.lisp
+++ b/tests/string.pure.lisp
@@ -76,3 +76,14 @@
 
 (assert (raises-error? (make-string 5 :element-type t)))
 (assert (raises-error? (let () (make-string 5 :element-type t))))
+
+;; MISC.574
+(assert (= (funcall (lambda (a)
+		      (declare (optimize (speed 3) (safety 1)
+					 (debug 1) (space 2))
+			       (fixnum a))
+		      (string<= (coerce "e99mo7yAJ6oU4" 'base-string)
+				(coerce "aaABAAbaa" 'base-string)
+				:start1 a))
+		    9)
+	   9))