Changeset 11707

Timestamp:

03/14/09 21:52:48 (15 years ago)

Author:

ehuelsmann

Message:

r11706 follow up: Jump over the exception handler.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -4956 +4956 @@
     ;; Implicit PROGN.
     (compile-progn-body (cdddr form) target)
+    (emit 'goto label-EXIT)
     (label label-END)
     (aload *thread*)