Changeset 4945


Ignore:
Timestamp:
12/02/03 19:52:21 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4899 r4945  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.45 2003-11-27 14:44:37 piso Exp $
     4;;; $Id: jvm.lisp,v 1.46 2003-12-02 19:52:21 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    22922292(defun jvm-compile (name &optional definition)
    22932293  (let ((prefix (load-verbose-prefix)))
    2294     (when name
    2295       (format t "~A Compiling ~S ...~%" prefix name)
    2296       (when (and (fboundp name) (typep (fdefinition name) 'generic-function))
    2297         (format t "~A Unable to compile generic function ~S~%" prefix name)
    2298         (return-from jvm-compile (values name nil t)))
    2299       (unless (symbolp name)
    2300         (format t "~A Unable to compile ~S~%" prefix name)
    2301         (return-from jvm-compile (values name nil t))))
     2294    (if name
     2295        (progn
     2296          (format t "~A Compiling ~S ...~%" prefix name)
     2297          (when (and (fboundp name) (typep (fdefinition name) 'generic-function))
     2298            (format t "~A Unable to compile generic function ~S~%" prefix name)
     2299            (return-from jvm-compile (values name nil t)))
     2300          (unless (symbolp name)
     2301            (format t "~A Unable to compile ~S~%" prefix name)
     2302            (return-from jvm-compile (values name nil t))))
     2303        (format t "Compiling top-level form ...~%"))
    23022304    (unless definition
    23032305      (resolve name)
     
    23202322                (setf (fdefinition name) (sys::make-macro compiled-definition))
    23212323                (setf (fdefinition name) compiled-definition)))
    2322           (when name
    2323             (format t "~A Compiled ~S~%" prefix name))
     2324          (if name
     2325              (format t "~A Compiled ~S~%" prefix name)
     2326              (format t "Compiled top-level form~%"))
    23242327          (values (or name compiled-definition) nil nil))
    23252328      (error (c)
     
    23992402      (let ((decls (process-optimization-declarations (cddr expr))))
    24002403        (setf speed (cdr (assoc 'speed decls)))))
    2401     (if (eql speed 3)
     2404    (if (or (eql speed 3)
     2405            (and (null speed) *auto-compile*))
    24022406        (progn
    24032407          (precompile name definition)
Note: See TracChangeset for help on using the changeset viewer.