Implemented string<

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index 0cbb4d2..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)))
 
@@ -386,7 +392,7 @@
 
 (defun alpha-char-p (x)
   (or (<= (char-code #\a) (char-code x) (char-code #\z))
-      (<= (char-code #\Z) (char-code x) (char-code #\Z))))
+      (<= (char-code #\A) (char-code x) (char-code #\Z))))
 
 (defun digit-char-p (x)
   (if (and (<= (char-code #\0) (char-code x) (char-code #\9)))
@@ -406,14 +412,6 @@
           (equal (cdr x) (cdr y))))
     ((stringp x)
      (and (stringp y) (string= x y)))
-    ((arrayp x)
-     (let ((n (length x)))
-       (and (arrayp y)
-            (eql n (length y))
-            (do ((i 0 (1+ i)))
-                ((or (= i n)
-                     (not (equal (aref x i) (aref y i))))
-                   (= i n))))))
     (t nil)))
 
 (defun fdefinition (x)
@@ -552,4 +550,3 @@
 
 (defun error (fmt &rest args)
   (%throw (apply #'format nil fmt args)))
-