Changeset 3251


Ignore:
Timestamp:
08/07/03 14:41:33 (18 years ago)
Author:
piso
Message:

JVM-COMPILE

File:
1 edited

Legend:

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

    r2616 r3251  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: chars.lisp,v 1.5 2003-06-26 02:37:22 piso Exp $
     4;;; $Id: chars.lisp,v 1.6 2003-08-07 14:41:33 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)
    2627    (cond ((<= radix 10)
    2728     ;; Special-case decimal and smaller radices.
     
    104105      (return nil)))
    105106      (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.