Changeset 14608

Timestamp:

01/22/14 14:37:36 (9 years ago)

Author:

Mark Evenson

Message:

Untabify.

File:

• trunk/abcl/src/org/armedbear/lisp/LispThread.java (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/LispThread.java

@@ -655 +655 @@
         }
         public LispObject getParts() {
-      Cons result = new Cons(NIL);
-      return result
-    .push(new Symbol("INITIAL-SEGMENT-SIZE"))
-                    .push(LispInteger.getInstance(LispThread.INITIAL_SEGMENT_SIZE))
-    .push(new Symbol("SEGMENT-SIZE"))
-                    .push(LispInteger.getInstance(LispThread.SEGMENT_SIZE)).nreverse();
+        Cons result = new Cons(NIL);
+        return result
+          .push(new Symbol("INITIAL-SEGMENT-SIZE"))
+            .push(LispInteger.getInstance(LispThread.INITIAL_SEGMENT_SIZE))
+          .push(new Symbol("SEGMENT-SIZE"))
+            .push(LispInteger.getInstance(LispThread.SEGMENT_SIZE)).nreverse();
         }
     }
@@ -1180 +1180 @@
     private static final Primitive THREAD_ALIVE_P =
         new Primitive("thread-alive-p", PACKAGE_THREADS, true, "thread",
-          "Boolean predicate whether THREAD is alive.")
+              "Boolean predicate whether THREAD is alive.")
     {
         @Override
@@ -1318 +1318 @@
     private static final Primitive INTERRUPT_THREAD =
         new Primitive("interrupt-thread", PACKAGE_THREADS, true,
-          "thread function &rest args",
-          "Interrupts THREAD and forces it to apply FUNCTION to ARGS.\nWhen the function returns, the thread's original computation continues. If  multiple interrupts are queued for a thread, they are all run, but the order is not guaranteed.")
+              "thread function &rest args",
+              "Interrupts THREAD and forces it to apply FUNCTION to ARGS.\nWhen the function returns, the thread's original computation continues. If  multiple interrupts are queued for a thread, they are all run, but the order is not guaranteed.")
     {
         @Override