0.8.20.27:

[sbcl.git] / tests / string.pure.lisp

diff --git a/tests/string.pure.lisp b/tests/string.pure.lisp
index 702dfee..1b659fd 100644 (file)
--- 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))