Changeset 8406
- Timestamp:
- 01/27/05 13:10:50 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/jvm.lisp
r8403 r8406 2 2 ;;; 3 3 ;;; Copyright (C) 2003-2005 Peter Graves 4 ;;; $Id: jvm.lisp,v 1.37 3 2005-01-27 02:17:58piso Exp $4 ;;; $Id: jvm.lisp,v 1.374 2005-01-27 13:10:50 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 138 138 )))) 139 139 140 (defstruct compiland140 (defstruct (compiland (:print-function print-compiland)) 141 141 name 142 142 (kind :external) ; :INTERNAL or :EXTERNAL … … 151 151 class-file ; class-file object 152 152 ) 153 154 (defun print-compiland (compiland stream depth) 155 (%format stream "#<~S ~S>" 'compiland (compiland-name compiland))) 153 156 154 157 (defvar *current-compiland* nil) … … 4858 4861 (*safety* 0) 4859 4862 (*debug* 0)) 4863 4864 (aver (not (null (compiland-class-file xep)))) 4865 4860 4866 ;; Pass 1. 4861 4867 (p1-compiland xep) … … 4892 4898 4893 4899 4894 (when *magic*4900 (when (and *magic* (null (compiland-parent compiland))) 4895 4901 (when (memq '&OPTIONAL lambda-list) 4896 4902 (unless (or (memq '&KEY lambda-list) (memq '&REST lambda-list))
Note: See TracChangeset
for help on using the changeset viewer.