Changeset 8325


Ignore:
Timestamp:
01/02/05 04:11:43 (17 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

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

    r8324 r8325  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.339 2005-01-02 02:30:06 piso Exp $
     4;;; $Id: jvm.lisp,v 1.340 2005-01-02 04:11:43 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    38803880      (setf form (list* 'LAMBDA arglist body)))
    38813881    (let ((*nesting-level* (1+ *nesting-level*)))
    3882       (cond (*compile-file-truename*
    3883              (setf classfile (sys::next-classfile-name))
    3884 ;;              (compile-defun name form nil classfile)
    3885 
    3886 ;;              (aver (eq (car form) 'LAMBDA))
    3887 ;;              (handler-bind ((warning #'handle-warning))
    3888 ;;                (let ((precompiled-form (if *current-compiland*
    3889 ;;                                            form
    3890 ;;                                            (precompile-form form t))))
    3891                  (compile-1 (make-compiland :name name
    3892 ;;                                             :lambda-expression precompiled-form
    3893                                             :lambda-expression form
    3894                                             :classfile classfile
    3895                                             :parent *current-compiland*))
     3882      (setf classfile (if *compile-file-truename*
     3883                          (sys::next-classfile-name)
     3884                          (prog1
     3885                              (%format nil "local-~D.class" *child-count*)
     3886                              (incf *child-count*))))
     3887      (compile-1 (make-compiland :name name
     3888                                        :lambda-expression form
     3889                                        :classfile classfile
     3890                                        :parent *current-compiland*))
     3891;;       (cond (*compile-file-truename*
     3892;; ;;              (setf classfile (sys::next-classfile-name))
     3893;; ;;              (compile-1 (make-compiland :name name
     3894;; ;;                                         :lambda-expression form
     3895;; ;;                                         :classfile classfile
     3896;; ;;                                         :parent *current-compiland*))
    38963897;;              )
    3897 ;;                )
    3898 
    3899              )
    3900             (t
    3901              (setf classfile (prog1
    3902                               (%format nil "local-~D.class" *child-count*)
    3903                               (incf *child-count*)))
    3904 ;;              (compile-defun name form nil classfile)
    3905 
    3906 ;;              (aver (eq (car form) 'LAMBDA))
    3907 ;;              (handler-bind ((warning #'handle-warning))
    3908 ;;                (let ((precompiled-form (if *current-compiland*
    3909 ;;                                            form
    3910 ;;                                            (precompile-form form t))))
    3911                  (compile-1 (make-compiland :name name
    3912 ;;                                             :lambda-expression precompiled-form
    3913                                             :lambda-expression form
    3914                                             :classfile classfile
    3915                                             :parent *current-compiland*))
    3916 ;;                  )
    3917 ;;                )
    3918 
    3919              (setf function (sys:load-compiled-function classfile)))))
     3898;;             (t
     3899;; ;;              (setf classfile (prog1
     3900;; ;;                               (%format nil "local-~D.class" *child-count*)
     3901;; ;;                               (incf *child-count*)))
     3902;; ;;              (compile-1 (make-compiland :name name
     3903;; ;;                                         :lambda-expression form
     3904;; ;;                                         :classfile classfile
     3905;; ;;                                         :parent *current-compiland*))
     3906;;              (setf function (sys:load-compiled-function classfile)))))
     3907      (when (null *compile-file-truename*)
     3908        (setf function (sys:load-compiled-function classfile))))
    39203909    (cond (local-function
    39213910           (setf (local-function-classfile local-function) classfile)
Note: See TracChangeset for help on using the changeset viewer.