From: Samuel Chase <samebchase@gmail.com>
Date: Sun, 12 May 2013 19:57:15 +0000 (+0530)
Subject: Add test for string< and get it to fail
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e095cf1b6567eb71f7386c724c1aa504a9d2bcfb;p=jscl.git

Add test for string< and get it to fail

dummy string< created for test failure.
---

diff --git a/src/string.lisp b/src/string.lisp
index 04aa7f1..92c78dc 100644
--- a/src/string.lisp
+++ b/src/string.lisp
@@ -25,6 +25,9 @@
         (unless (char= (char s1 i) (char s2 i))
           (return-from string= nil))))))
 
+(defun string< (s1 s2)
+  -1)
+
 (define-setf-expander char (string index)
   (let ((g!string (gensym))
         (g!index (gensym))