Implemented string<

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index 44587f2..5f44fa6 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -92,6 +92,9 @@
 (defun boundp (x)
   (boundp x))
 
+(defun fboundp (x)
+  (fboundp x))
+
 ;; Basic functions
 (defun = (x y) (= x y))
 (defun * (x y) (* x y))
@@ -372,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)))
 
@@ -544,4 +550,3 @@
 
 (defun error (fmt &rest args)
   (%throw (apply #'format nil fmt args)))
-