projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implemented string<
[jscl.git]
/
src
/
boot.lisp
diff --git
a/src/boot.lisp
b/src/boot.lisp
index
72c43cb
..
5f44fa6
100644
(file)
--- a/
src/boot.lisp
+++ b/
src/boot.lisp
@@
-92,6
+92,9
@@
(defun boundp (x)
(boundp x))
(defun boundp (x)
(boundp x))
+(defun fboundp (x)
+ (fboundp x))
+
;; Basic functions
(defun = (x y) (= x y))
(defun * (x y) (* x y))
;; 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)
(eql x y))
+(defun char< (x y)
+ (< (char-code x) (char-code y)))
+
(defun integerp (x)
(and (numberp x) (= (floor x) x)))
(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))
(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)))
(defun digit-char-p (x)
(if (and (<= (char-code #\0) (char-code x) (char-code #\9)))
@@
-544,4
+550,3
@@
(defun error (fmt &rest args)
(%throw (apply #'format nil fmt args)))
(defun error (fmt &rest args)
(%throw (apply #'format nil fmt args)))
-