Commits

Anonymous committed 5718d59

- prompt shows package we are in

Comments (0)

Files changed (3)

src/org/lispdev/swank/ISwank.java

       String num1, String num2);
   void sendInterrupt(SwankRunnable callBack);
   void setPackage(String p);
+  String getCurrPackage();
 }

src/org/lispdev/swank/SwankInterface.java

     return swank != null && swank.isConnected();
   }
 
-  private String currPackage = "COMMON-LISP-USER";
+  private String currPackage = "CL-USER";
   private String lispVersion = "(NO CL IMPLEMENTATION)";
   private String lastTestPackage = "nil"; // FIXME: this should be in test view
 

src/org/lispdev/swank/SwankInterfaceTest.java

       e.printStackTrace();
     } // catch
 
-    assertEquals("2", callBack.result.get(2).value);
+    assertEquals("4", callBack.result.get(2).value);
 
   }