Changeset 11137


Ignore:
Timestamp:
02/15/07 14:06:32 (14 years ago)
Author:
piso
Message:

%JVM-COMPILE: bind *SPEED*, *SPACE* etc. to current values around call to COMPILE-DEFUN

File:
1 edited

Legend:

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

    r11067 r11137  
    22;;;
    33;;; Copyright (C) 2003-2006 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.772 2006-06-12 12:39:59 piso Exp $
     4;;; $Id: jvm.lisp,v 1.773 2007-02-15 14:06:32 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1036110361           (failure-p t))
    1036210362      (with-compilation-unit ()
    10363         (let* ((tempfile (make-temp-file)))
     10363        (let* ((*speed* *speed*)
     10364               (*space* *space*)
     10365               (*safety* *safety*)
     10366               (*debug* *debug*)
     10367               (*explain* *explain*)
     10368               (tempfile (make-temp-file)))
    1036410369          (unwind-protect
    1036510370              (setf compiled-function
Note: See TracChangeset for help on using the changeset viewer.