Ignore:
Timestamp:
06/26/03 01:27:39 (18 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/chars.lisp

    r1325 r2614  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: chars.lisp,v 1.3 2003-03-17 14:50:12 piso Exp $
     4;;; $Id: chars.lisp,v 1.4 2003-06-26 01:27:12 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020(in-package "COMMON-LISP")
    2121
    22 (export '(digit-char-p alphanumericp
    23           char/= char< char> char<= char>=
    24           char-not-equal
    25           char-lessp char-greaterp))
    26 
    27 
    2822;;; From CMUCL.
    2923
    3024(defun digit-char-p (char &optional (radix 10))
    31   "If char is a digit in the specified radix, returns the fixnum for
    32   which that digit stands, else returns NIL.  Radix defaults to 10
    33   (decimal)."
    34   (declare (character char) (type (integer 2 36) radix))
    3525  (let ((m (- (char-code char) 48)))
    36     (declare (fixnum m))
    3726    (cond ((<= radix 10)
    3827     ;; Special-case decimal and smaller radices.
     
    4938
    5039(defun alphanumericp (char)
    51   "Given a character-object argument, alphanumericp returns T if the
    52    argument is either numeric or alphabetic."
    5340  (declare (character char))
    5441  (let ((m (char-code char)))
     
    5744
    5845(defun char/= (character &rest more-characters)
    59   "Returns T if no two of its arguments are the same character."
    6046  (do* ((head character (car list))
    6147  (list more-characters (cdr list)))
     
    6854
    6955(defun char< (character &rest more-characters)
    70   "Returns T if its arguments are in strictly increasing alphabetic order."
    7156  (do* ((c character (car list))
    7257  (list more-characters (cdr list)))
     
    7863
    7964(defun char> (character &rest more-characters)
    80   "Returns T if its arguments are in strictly decreasing alphabetic order."
    8165  (do* ((c character (car list))
    8266  (list more-characters (cdr list)))
     
    8872
    8973(defun char<= (character &rest more-characters)
    90   "Returns T if its arguments are in strictly non-decreasing alphabetic order."
    9174  (do* ((c character (car list))
    9275  (list more-characters (cdr list)))
     
    9881
    9982(defun char>= (character &rest more-characters)
    100   "Returns T if its arguments are in strictly non-increasing alphabetic order."
    10183  (do* ((c character (car list))
    10284  (list more-characters (cdr list)))
     
    11395
    11496(defun char-not-equal (character &rest more-characters)
    115   "Returns T if no two of its arguments are the same character.
    116    Font, bits, and case are ignored."
    11797  (do* ((head character (car list))
    11898  (list more-characters (cdr list)))
     
    127107
    128108(defun char-lessp (character &rest more-characters)
    129   "Returns T if its arguments are in strictly increasing alphabetic order.
    130    Font, bits, and case are ignored."
    131109  (do* ((c character (car list))
    132110  (list more-characters (cdr list)))
     
    138116
    139117(defun char-greaterp (character &rest more-characters)
    140   "Returns T if its arguments are in strictly decreasing alphabetic order.
    141    Font, bits, and case are ignored."
    142118  (do* ((c character (car list))
    143119  (list more-characters (cdr list)))
Note: See TracChangeset for help on using the changeset viewer.