Changeset 8406


Ignore:
Timestamp:
01/27/05 13:10:50 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

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

    r8403 r8406  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.373 2005-01-27 02:17:58 piso Exp $
     4;;; $Id: jvm.lisp,v 1.374 2005-01-27 13:10:50 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    138138             ))))
    139139
    140 (defstruct compiland
     140(defstruct (compiland (:print-function print-compiland))
    141141  name
    142142  (kind :external) ; :INTERNAL or :EXTERNAL
     
    151151  class-file ; class-file object
    152152  )
     153
     154(defun print-compiland (compiland stream depth)
     155  (%format stream "#<~S ~S>" 'compiland (compiland-name compiland)))
    153156
    154157(defvar *current-compiland* nil)
     
    48584861        (*safety* 0)
    48594862        (*debug* 0))
     4863
     4864    (aver (not (null (compiland-class-file xep))))
     4865
    48604866    ;; Pass 1.
    48614867    (p1-compiland xep)
     
    48924898
    48934899
    4894       (when *magic*
     4900      (when (and *magic* (null (compiland-parent compiland)))
    48954901        (when (memq '&OPTIONAL lambda-list)
    48964902          (unless (or (memq '&KEY lambda-list) (memq '&REST lambda-list))
Note: See TracChangeset for help on using the changeset viewer.