1 21 22 package org.armedbear.lisp; 23 24 public final class Debug extends Lisp 25 { 26 public static final void assertTrue(boolean b) 27 { 28 if (!b) { 29 System.err.println("Assertion failed!"); 30 Error e = new Error (); 31 e.printStackTrace(); 32 throw e; 33 } 34 } 35 36 public static void bug() 38 { 39 trace(new Exception ("BUG!")); 40 } 41 42 public static final void trace(String s) 43 { 44 System.err.println(s); 45 } 46 47 public static final void trace(Throwable t) 48 { 49 t.printStackTrace(); 50 } 51 } 52 | Popular Tags |