[armedbear-cvs] r11871 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri May 15 15:09:48 2009
New Revision: 11871

Log:
Indenting < 80 columns.

Modified:
   trunk/abcl/src/org/armedbear/lisp/jvm.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Fri May 15 15:09:48 2009
@@ -350,7 +350,9 @@
 
 ;; Used to wrap TAGBODYs, UNWIND-PROTECTs and LET/LET*/M-V-B forms as well as
 ;; BLOCKs per se.
-(defstruct (block-node (:conc-name block-) (:include node) (:constructor make-block-node (name)))
+(defstruct (block-node (:conc-name block-)
+                       (:include node)
+                       (:constructor make-block-node (name)))
   (exit (gensym))
   target
   catch-tag