X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=44587f2180da81e53efc816a97bc9fc5d3ba36f2;hb=b1e6df4cc0e0c5162cc1c85a7977ae6f669b7a5f;hp=9e9b027aa1a7356295638049d96d65091dbcd671;hpb=c2493e3427215081351e8ab6a0e90aebe946c86d;p=jscl.git

diff --git a/src/boot.lisp b/src/boot.lisp
index 9e9b027..44587f2 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -386,7 +386,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)))
@@ -397,30 +397,6 @@
   (and (<= 0 weight 9)
        (char "0123456789" weight)))
 
-(defun subseq (seq a &optional b)
-  (if b
-      (slice seq a b)
-      (slice seq a)))
-
-(defmacro do-sequence (iteration &body body)
-  (let ((seq (gensym))
-        (index (gensym)))
-    `(let ((,seq ,(second iteration)))
-       (cond
-         ;; Strings
-         ((stringp ,seq)
-          (let ((,index 0))
-            (dotimes (,index (length ,seq))
-              (let ((,(first iteration)
-                     (char ,seq ,index)))
-                ,@body))))
-         ;; Lists
-         ((listp ,seq)
-          (dolist (,(first iteration) ,seq)
-            ,@body))
-         (t
-          (error "type-error!"))))))
-
 (defun equal (x y)
   (cond
     ((eql x y) t)