Ignore:
Timestamp:
08/07/03 15:12:26 (18 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r3251 r3252  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: chars.lisp,v 1.6 2003-08-07 14:41:33 piso Exp $
     4;;; $Id: chars.lisp,v 1.7 2003-08-07 15:12:26 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424(defun digit-char-p (char &optional (radix 10))
    2525  (let ((m (- (char-code char) 48)))
    26     (format t "radix = ~S m = ~S~%" radix m)
    2726    (cond ((<= radix 10)
    2827     ;; Special-case decimal and smaller radices.
Note: See TracChangeset for help on using the changeset viewer.