Ignore:
Timestamp:
02/01/05 05:20:45 (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

    r8432 r8441  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.380 2005-01-31 17:28:58 piso Exp $
     4;;; $Id: jvm.lisp,v 1.381 2005-02-01 05:20:45 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3131          sys::expand-source-transform))
    3232
     33(require '#:format)
    3334(require '#:clos)
    34 
    3535(require '#:source-transform)
    36 
    3736(require '#:opcodes)
    3837
     
    53795378
    53805379    ;; Pass 2.
    5381 ;;     (%format t "compile-1 (length *fields*) = ~S~%" (length *fields*))
    53825380    (with-class-file (compiland-class-file compiland)
    53835381      (p2-compiland compiland)
    5384       (write-class-file (compiland-class-file compiland))
    5385       )
    5386 ;;     (%format t "compile-1 (length *fields*) = ~S~%" (length *fields*))
     5382      (write-class-file (compiland-class-file compiland)))
    53875383
    53885384    (dformat t "*all-variables* = ~S~%" (mapcar #'variable-name *all-variables*))
     
    53995395                               :lambda-expression (precompile-form form t)
    54005396                               :class-file (make-class-file :pathname filespec
    5401                                                             :lambda-list (cadr form))
    5402 ;;                                :parent *current-compiland*
    5403                                ))))
     5397                                                            :lambda-list (cadr form))))))
    54045398
    54055399(defun handle-warning (condition)
    54065400  (fresh-line)
    5407   (format t "; Caught ~A:~%;   ~A~%" (type-of condition) condition)
     5401  (format t "~%; Caught ~A:~%;   ~A~%~%" (type-of condition) condition)
    54085402  (muffle-warning))
    54095403
Note: See TracChangeset for help on using the changeset viewer.