Changeset 6177 for trunk/j/src/org/armedbear/lisp/chars.lisp

Timestamp:

03/11/04 09:37:09 (17 years ago)

Author:

piso

Message:

ALPHANUMERICP

File:

• trunk/j/src/org/armedbear/lisp/chars.lisp (modified) (7 diffs)

trunk/j/src/org/armedbear/lisp/chars.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003-2004 Peter Graves
-;;; $Id: chars.lisp,v 1.9 2004-02-09 13:07:20 piso Exp $
+;;; $Id: chars.lisp,v 1.10 2004-03-11 09:37:09 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -36 +36 @@
     (t nil))))
 
-
 (defun alphanumericp (char)
-  (declare (character char))
-  (let ((m (char-code char)))
-    (or (< 47 m 58) (< 64 m 91) (< 96 m 123))))
-
+  (or (digit-char-p char) (alpha-char-p char)))
 
 (defun char/= (character &rest more-characters)
@@ -52 +48 @@
       (return nil))))
 
-
 (defun char< (character &rest more-characters)
   (do* ((c character (car list))
@@ -60 +55 @@
          (char-int (car list)))
       (return nil))))
-
 
 (defun char> (character &rest more-characters)
@@ -70 +64 @@
       (return nil))))
 
-
 (defun char<= (character &rest more-characters)
   (do* ((c character (car list))
@@ -78 +71 @@
     (char-int (car list)))
       (return nil))))
-
 
 (defun char>= (character &rest more-characters)
@@ -88 +80 @@
       (return nil))))
 
-
 (defmacro equal-char-code (character)
   `(let ((ch (char-code ,character)))
      (if (< 96 ch 123) (- ch 32) ch)))
-
 
 (defun char-not-equal (character &rest more-characters)