Changeset 8608


Ignore:
Timestamp:
02/18/05 18:22:16 (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

    r8603 r8608  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.399 2005-02-18 14:30:46 piso Exp $
     4;;; $Id: jvm.lisp,v 1.400 2005-02-18 18:22:16 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    52355235
    52365236
    5237       (when (and *magic* (null (compiland-parent compiland)))
     5237      (when (and *magic*
     5238                 (null (compiland-parent compiland))
     5239                 ;; FIXME support SETF functions!
     5240                 (symbolp (compiland-name compiland)))
    52385241        (when (memq '&OPTIONAL lambda-list)
    52395242          (unless (or (memq '&KEY lambda-list) (memq '&REST lambda-list))
Note: See TracChangeset for help on using the changeset viewer.