Changeset 3238


Ignore:
Timestamp:
08/06/03 17:45:55 (18 years ago)
Author:
piso
Message:

JVM-COMPILE if available.

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r2723 r3238  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: find.lisp,v 1.2 2003-07-02 17:57:53 piso Exp $
     4;;; $Id: find.lisp,v 1.3 2003-08-06 17:44:27 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    209209        (vector-find-if-not test sequence))))
    210210
     211(when (and (find-package "JVM")
     212           (fboundp 'jvm:jvm-compile))
     213  (mapcar #'jvm:jvm-compile '(position
     214                              list-position*
     215                              vector-position*
     216                              position-if
     217                              position-if-not
     218                              find
     219                              list-find*
     220                              vector-find*
     221                              find-if
     222                              find-if-not)))
  • trunk/j/src/org/armedbear/lisp/search.lisp

    r3189 r3238  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: search.lisp,v 1.11 2003-08-02 20:05:03 piso Exp $
     4;;; $Id: search.lisp,v 1.12 2003-08-06 17:45:55 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    113113        (list-search sequence2 sequence1)
    114114        (vector-search sequence2 sequence1))))
     115
     116(when (and (find-package "JVM")
     117           (fboundp 'jvm:jvm-compile))
     118  (jvm:jvm-compile 'search))
Note: See TracChangeset for help on using the changeset viewer.