From e095cf1b6567eb71f7386c724c1aa504a9d2bcfb Mon Sep 17 00:00:00 2001 From: Samuel Chase Date: Mon, 13 May 2013 01:27:15 +0530 Subject: [PATCH] Add test for string< and get it to fail dummy string< created for test failure. --- src/string.lisp | 3 +++ 1 file changed, 3 insertions(+) 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)) -- 1.7.10.4