Commits

sk  committed bcc02e3

Tried to run with clozure. Almost worked.

  • Participants
  • Parent commits 113383d

Comments (0)

Files changed (2)

File src/org/lispdev/swank/BaseLocalLispLaunchDelegate.java

   //for now to folder containing lisp-extensions folder: see basicStartup
   //function in SwankInterface
 
-  @SuppressWarnings("unchecked")
   protected static LispProcess launch(ILaunchConfiguration config,
       ILaunch launch, IRunnableDriver r) throws CoreException
   {
     {
       Log.abort("Port "+port+" is not available", null);
     }
+    @SuppressWarnings("rawtypes")
     final LocalLispImplementation implem =
       new LocalLispImplementation(exe, swankDir,
           config.getAttribute(ATTR_CMD_PARAMS, new ArrayList()),
       Log.abort("Extensions directory "+ext+" does not exist", null);
     }
     final SwankInterface s = new SwankInterface(ext,implem,r);
+    //s.connect();
 
     LispProcess p = new LispProcess(launch, "swank", null, s);
     launch.addProcess(p);

File src/org/lispdev/swank/SwankInterface.java

   {
     if( swank.isConnected() )
     {
-      String startupCode =
-          "(progn (swank:swank-require :swank-fuzzy)\n"
-              + "(swank:swank-require :swank-asdf)\n"
-              + "(swank:swank-require :swank-presentations)\n"
-              + "(swank:swank-require :swank-fancy-inspector)\n"
-              + "(swank:swank-require :swank-arglists)\n"
-              + "(swank:swank-require :swank-presentations)\n";
-      // + BreakpointAction.macro +"\n"+ WatchAction.macro+"\n";
-
-      final String plPath = (pluginPath+"/").replace("\\\\", "/").replace("\\", "/").replace("//","/");
-      String asdfext = plPath + "lisp-extensions/asdf-extensions.lisp";
-      startupCode += "(load \"" + asdfext + "\")\n";
-
-      if( useUnitTest )
-      {
-        startupCode +=
-            "(load \"" + plPath + "lisp-extensions/lisp-unit.lisp"
-                + "\")\n";
-      }
-      if( strIni != null && strIni != "" )
-      {
-        strIni = strIni.replaceAll("\\\\", "/");
-        startupCode +=
-            "(when (probe-file \"" + strIni + "\") (load \"" + strIni
-                + "\"))\n";
-      }
-
-      startupCode +=
-          "(format nil \"You are running ~a ~a via LispDev Swank "
-              // + LispPlugin.getVersion()
-              + "\" (lisp-implementation-type) (lisp-implementation-version))"
-              + ")";
+//      String startupCode =
+//          "(progn (swank:swank-require :swank-fuzzy)\n"
+//              + "(swank:swank-require :swank-asdf)\n"
+//              + "(swank:swank-require :swank-presentations)\n"
+//              + "(swank:swank-require :swank-fancy-inspector)\n"
+//              + "(swank:swank-require :swank-arglists)\n"
+//              + "(swank:swank-require :swank-presentations)\n";
+//      // + BreakpointAction.macro +"\n"+ WatchAction.macro+"\n";
+//
+//      final String plPath = (pluginPath+"/").replace("\\\\", "/").replace("\\", "/").replace("//","/");
+//      String asdfext = plPath + "lisp-extensions/asdf-extensions.lisp";
+//      startupCode += "(load \"" + asdfext + "\")\n";
+//
+//      if( useUnitTest )
+//      {
+//        startupCode +=
+//            "(load \"" + plPath + "lisp-extensions/lisp-unit.lisp"
+//                + "\")\n";
+//      }
+//      if( strIni != null && strIni != "" )
+//      {
+//        strIni = strIni.replaceAll("\\\\", "/");
+//        startupCode +=
+//            "(when (probe-file \"" + strIni + "\") (load \"" + strIni
+//                + "\"))\n";
+//      }
+//
+//      startupCode +=
+//          "(format nil \"You are running ~a ~a via LispDev Swank "
+//              // + LispPlugin.getVersion()
+//              + "\" (lisp-implementation-type) (lisp-implementation-version))"
+//              + ")";
+    String startupCode =
+    "(format nil \"You are running ~a ~a via LispDev Swank "
+        + "\" (lisp-implementation-type) (lisp-implementation-version))";
 
       return sendEvalAndGrab(startupCode, 1000);
       // sendEval("(swank:fancy-inspector-init)", null);