Changeset 8303


Ignore:
Timestamp:
12/27/04 15:38:08 (17 years ago)
Author:
piso
Message:

COMPILE-THROW: fix MISC.503 failure.

File:
1 edited

Legend:

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

    r8302 r8303  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.320 2004-12-27 15:23:22 piso Exp $
     4;;; $Id: jvm.lisp,v 1.321 2004-12-27 15:38:08 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    46034603  (emit-push-current-thread)
    46044604  (compile-form (second form) :target :stack) ; Tag.
     4605  (emit-clear-values) ; Do this unconditionally! (MISC.503)
    46054606  (compile-form (third form) :target :stack) ; Result.
    46064607  (emit-invokevirtual +lisp-thread-class+
Note: See TracChangeset for help on using the changeset viewer.