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

COMPILE-LET-VARS

File:
1 edited

Legend:

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

    r4796 r4798  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.40 2003-11-16 21:59:43 piso Exp $
     4;;; $Id: jvm.lisp,v 1.41 2003-11-17 01:45:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    471471    (when (eql opcode 204) ; STORE-VALUE
    472472;;       (format t "removing STORE-VALUE~%")
    473       (setf *code* (cdr *code*)))))
     473      (setf *code* (cdr *code*))
     474      t)))
    474475
    475476(defconstant +lisp-class+ "org/armedbear/lisp/Lisp")
     
    16951696        (cond (initform
    16961697               (compile-form initform)
    1697                (emit-push-value)
     1698               (unless (remove-store-value)
     1699                 (emit-push-value))
    16981700               (setf last-push-was-nil nil))
    16991701              (t
Note: See TracChangeset for help on using the changeset viewer.