Ignore:
Timestamp:
05/20/09 22:20:42 (12 years ago)
Author:
ehuelsmann
Message:

Move the COMPILE block down from its dependencies.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11905 r11907  
    83638363        (delete-file tempfile)))
    83648364    (when (and name (functionp compiled-function))
    8365       (set-function-definition name compiled-function definition))
     8365      (sys::set-function-definition name compiled-function definition))
    83668366    (or name compiled-function)))
    83678367
    8368 
    8369 (defvar *file-compilation* nil)
    8370 (defvar *pathnames-generator* #'make-temp-file)
    8371 
    8372 (defun compile (name &optional definition)
    8373   (jvm-compile name definition))
    8374 
    8375 (defmacro with-file-compilation (&body body)
    8376   `(let ((*file-compilation* t)
    8377          (*pathnames-generator* #'sys::next-classfile-name))
    8378      ,@body))
    83798368
    83808369(defun jvm-compile (name &optional definition)
     
    84228411      (values (%jvm-compile name definition expression environment)
    84238412              warnings-p failure-p))))
     8413
     8414(defvar *file-compilation* nil)
     8415(defvar *pathnames-generator* #'make-temp-file)
     8416
     8417(defun compile (name &optional definition)
     8418  (jvm-compile name definition))
     8419
     8420(defmacro with-file-compilation (&body body)
     8421  `(let ((*file-compilation* t)
     8422         (*pathnames-generator* #'sys::next-classfile-name))
     8423     ,@body))
     8424
     8425
    84248426
    84258427(defun jvm-compile-package (package-designator)
Note: See TracChangeset for help on using the changeset viewer.