Changeset 4980


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

Work in progress.

File:
1 edited

Legend:

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

    r4958 r4980  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.50 2003-12-04 03:19:22 piso Exp $
     4;;; $Id: jvm.lisp,v 1.51 2003-12-05 15:26:19 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    24482448     ',name))
    24492449
    2450 (mapc #'jvm-compile '(pool-add
    2451                       pool-find-entry
    2452                       pool-name
    2453                       pool-get
    2454                       compile-form))
     2450(let ((*auto-compile* nil))
     2451  (mapc #'jvm-compile '(pool-add
     2452                        pool-find-entry
     2453                        pool-name
     2454                        pool-get
     2455                        compile-form)))
Note: See TracChangeset for help on using the changeset viewer.