Changeset 3251 for trunk/j/src/org/armedbear/lisp/chars.lisp
- Timestamp:
- 08/07/03 14:41:33 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/chars.lisp
r2616 r3251 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: chars.lisp,v 1. 5 2003-06-26 02:37:22piso Exp $4 ;;; $Id: chars.lisp,v 1.6 2003-08-07 14:41:33 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 24 24 (defun digit-char-p (char &optional (radix 10)) 25 25 (let ((m (- (char-code char) 48))) 26 (format t "radix = ~S m = ~S~%" radix m) 26 27 (cond ((<= radix 10) 27 28 ;; Special-case decimal and smaller radices. … … 104 105 (return nil))) 105 106 (return nil)))) 107 108 (when (and (find-package "JVM") 109 (fboundp 'jvm::jvm-compile)) 110 (mapcar #'jvm::jvm-compile '(digit-char-p 111 alphanumericp 112 char/= 113 char< 114 char> 115 char<= 116 char>= 117 char-not-equal)))
Note: See TracChangeset
for help on using the changeset viewer.