Changeset 4769


Ignore:
Timestamp:
11/15/03 16:15:44 (18 years ago)
Author:
piso
Message:

COMPILE-IF: pay attention to FOR-EFFECT.

File:
1 edited

Legend:

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

    r4751 r4769  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.28 2003-11-14 17:54:23 piso Exp $
     4;;; $Id: jvm.lisp,v 1.29 2003-11-15 16:15:44 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    15321532    (emit-clear-values)
    15331533    (emit instr `,label1)
    1534     (compile-form consequent)
     1534    (compile-form consequent for-effect)
    15351535    (emit 'goto `,label2)
    15361536    (emit 'label `,label1)
    1537     (compile-form alternate)
     1537    (compile-form alternate for-effect)
    15381538    (emit 'label `,label2)))
    15391539
Note: See TracChangeset for help on using the changeset viewer.