Ignore:
Timestamp:
11/17/03 01:56:50 (18 years ago)
Author:
piso
Message:

COMPILE-LET*-VARS

File:
1 edited

Legend:

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

    r4798 r4799  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.41 2003-11-17 01:45:28 piso Exp $
     4;;; $Id: jvm.lisp,v 1.42 2003-11-17 01:56:50 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    17451745        (cond (initform
    17461746               (compile-form initform)
    1747                (emit-push-value))
     1747               (unless (remove-store-value)
     1748                 (emit-push-value)))
    17481749              (t
    17491750               (emit-push-nil)))
Note: See TracChangeset for help on using the changeset viewer.