Changeset 8608 for trunk/j/src/org/armedbear/lisp/jvm.lisp

Timestamp:

02/18/05 18:22:16 (17 years ago)

Author:

piso

Message:

Work in progress (tested).

File:

• trunk/j/src/org/armedbear/lisp/jvm.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/jvm.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003-2005 Peter Graves
-;;; $Id: jvm.lisp,v 1.399 2005-02-18 14:30:46 piso Exp $
+;;; $Id: jvm.lisp,v 1.400 2005-02-18 18:22:16 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -5235 +5235 @@
 
 
-      (when (and *magic* (null (compiland-parent compiland)))
+      (when (and *magic*
+                 (null (compiland-parent compiland))
+                 ;; FIXME support SETF functions!
+                 (symbolp (compiland-name compiland)))
         (when (memq '&OPTIONAL lambda-list)
           (unless (or (memq '&KEY lambda-list) (memq '&REST lambda-list))