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

Timestamp:

11/11/03 20:29:41 (19 years ago)

Author:

piso

Message:

COMPILE-SETQ: pay attention to FOR-EFFECT.

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 Peter Graves
-;;; $Id: jvm.lisp,v 1.24 2003-11-11 20:13:03 piso Exp $
+;;; $Id: jvm.lisp,v 1.25 2003-11-11 20:29:41 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -1732 +1732 @@
     (when index
       (compile-form (cadr rest))
-      (emit-push-value)
+      (if for-effect
+          (unless (remove-store-value)
+            (emit-push-value))
+          (emit-push-value))
       (emit 'astore index)
       (return-from compile-setq))