Ignore:
Timestamp:
03/14/03 02:11:21 (18 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r1119 r1265  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: chars.lisp,v 1.1 2003-03-07 19:24:15 piso Exp $
     4;;; $Id: chars.lisp,v 1.2 2003-03-14 02:11:21 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2828;;; From CMUCL.
    2929
    30 (defun digit-char-p (char &optional (radix 10.))
     30(defun digit-char-p (char &optional (radix 10))
    3131  "If char is a digit in the specified radix, returns the fixnum for
    3232  which that digit stands, else returns NIL.  Radix defaults to 10
     
    3535  (let ((m (- (char-code char) 48)))
    3636    (declare (fixnum m))
    37     (cond ((<= radix 10.)
     37    (cond ((<= radix 10)
    3838     ;; Special-case decimal and smaller radices.
    3939     (if (and (>= m 0) (< m radix))  m  nil))
Note: See TracChangeset for help on using the changeset viewer.