X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=5f44fa688ce2d7f91bc257cc75e48a52074e0e34;hb=671a7d7ba8aa7bfae12d5eb254f184b2210a9c64;hp=47f430936479231b817c188126df03ca71fdb2a6;hpb=e095cf1b6567eb71f7386c724c1aa504a9d2bcfb;p=jscl.git

diff --git a/src/boot.lisp b/src/boot.lisp
index 47f4309..5f44fa6 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -375,6 +375,9 @@
 (defun char= (x y)
   (eql x y))
 
+(defun char< (x y)
+  (< (char-code x) (char-code y)))
+
 (defun integerp (x)
   (and (numberp x) (= (floor x) x)))