[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv23249/contrib

Modified Files:
	ChangeLog swank-kawa.scm 
Log Message:
* swank-kawa.scm (wrap-compilation): Set Compilation.explict flag.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/19 06:55:15	1.383
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/28 07:03:54	1.384
@@ -1,3 +1,7 @@
+2010-05-28  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-kawa.scm (wrap-compilation): Set Compilation.explict flag.
+
 2010-05-19  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el (slime-list-repl-short-cuts): Don't scroll to the
--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/08/15 08:35:08	1.19
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2010/05/28 07:03:54	1.20
@@ -655,9 +655,10 @@
         (messages (<gnu.text.SourceMessages>)))
     (try-catch
      (let ((c (as <gnu.expr.Compilation> (f messages))))
+       (set (@ explicit c) #t)
        (! compile-to-archive c (! get-module c) jar))
      (ex <throwable>
-         (log "error during compilation: ~a\n" ex)
+         (log "error during compilation: ~a\n~a" ex (! getStackTrace ex))
          (! error messages (as <char> #\f)
             (to-str (exception-message ex)) #!null)))
     (log "compilation done.\n")
@@ -2165,5 +2166,5 @@
 
 ;; Local Variables:
 ;; mode: goo 
-;; compile-command:"kawa -e '(compile-file \"swank-kawa.scm\"\"swank-kawa\")'" 
+;; compile-command:"kawa -e '(compile-file \"swank-kawa.scm\"\"swank-kawa.zip\")'" 
 ;; End:
\ No newline at end of file