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

Erik Huelsmann ehuelsmann at common-lisp.net
Thu Jan 13 21:15:27 UTC 2011


Author: ehuelsmann
Date: Thu Jan 13 16:15:26 2011
New Revision: 13139

Log:
Adjust indenting and add a SuppressWarning annotation.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Primitives.java

Modified: trunk/abcl/src/org/armedbear/lisp/Primitives.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Primitives.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Primitives.java	Thu Jan 13 16:15:26 2011
@@ -1581,6 +1581,7 @@
         }
 
         @Override
+        @SuppressWarnings("CallToThreadDumpStack")
         public LispObject execute(LispObject[] args) {
             Error e = new Error();
 
@@ -1592,8 +1593,8 @@
                 System.out.println(args[0].writeToString());
                 System.out.println(((Condition)args[0]).getConditionReport());
             } else
-for (LispObject a : args)
-                    System.out.println(a.writeToString());
+            for (LispObject a : args)
+                System.out.println(a.writeToString());
 
             //###FIXME: Bail out, but do it nicer...
             exit(1);




More information about the armedbear-cvs mailing list