Changeset 4948


Ignore:
Timestamp:
12/03/03 00:53:42 (18 years ago)
Author:
piso
Message:

COMPILE-TAGBODY: call EMIT-CLEAR-VALUES before returning NIL.

File:
1 edited

Legend:

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

    r4945 r4948  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.46 2003-12-02 19:52:21 piso Exp $
     4;;; $Id: jvm.lisp,v 1.47 2003-12-03 00:53:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    17991799  (unless for-effect
    18001800    ;; TAGBODY returns NIL.
     1801    (emit-clear-values)
    18011802    (emit-push-nil)
    18021803    (emit-store-value)))
Note: See TracChangeset for help on using the changeset viewer.