Changeset 3525

Timestamp:

08/26/03 02:28:22 (19 years ago)

Author:

piso

Message:

Use JVM compiler if available.

File:

• trunk/j/src/org/armedbear/lisp/numbers.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/numbers.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: numbers.lisp,v 1.6 2003-08-24 13:30:43 piso Exp $
+;;; $Id: numbers.lisp,v 1.7 2003-08-26 02:28:22 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -139 +139 @@
 (defun rationalize (x)
   (rational x))
+
+(when (and (find-package "JVM")
+           (fboundp 'jvm::jvm-compile))
+  (mapcar #'jvm::jvm-compile '(floor
+                               ceiling
+                               round
+                               rem
+                               ftruncate
+                               ffloor
+                               fceiling
+                               fround
+                               rational
+                               rationalize)))