Ignore:
Timestamp:
02/20/05 15:19:31 (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

    r8608 r8615  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.400 2005-02-18 18:22:16 piso Exp $
     4;;; $Id: jvm.lisp,v 1.401 2005-02-20 15:19:31 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3333(require '#:format)
    3434(require '#:clos)
     35(require '#:print-object)
    3536(require '#:source-transform)
    3637(require '#:opcodes)
     
    135136             ))))
    136137
    137 (defstruct (compiland (:print-function print-compiland))
     138(defstruct compiland
    138139  name
    139140  (kind :external) ; :INTERNAL or :EXTERNAL
     
    147148  closure-register
    148149  class-file ; class-file object
    149   (single-valued-p t)
    150   )
    151 
    152 (defun print-compiland (compiland stream depth)
     150  (single-valued-p t))
     151
     152(defmethod print-object ((compiland compiland) stream)
    153153  (%format stream "#<~S ~S>" 'compiland (compiland-name compiland)))
    154154
     
    27562756                  (eq op (compiland-name *current-compiland*))
    27572757                  (memq op *defined-functions*))
    2758         (push op *undefined-functions*)))
     2758        (pushnew op *undefined-functions*)))
    27592759    (let ((numargs (length args)))
    27602760      (case (length args)
     
    56905690  (unless (or (null environment) (sys::empty-environment-p environment))
    56915691    (compiler-unsupported "COMPILE-DEFUN: unable to compile LAMBDA form defined in non-null lexical environment."))
    5692   (aver (null *current-compiland*))
    56935692  (catch 'compile-defun-abort
    56945693    (let* ((class-file (make-class-file :pathname filespec
Note: See TracChangeset for help on using the changeset viewer.