[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	swank-kawa.scm 
Log Message:
More :FOO -> ':FOO substitutions.

--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/03/09 11:06:12	1.12
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/03/09 11:06:16	1.13
@@ -447,7 +447,7 @@
           )))))
 
 (df find-thread (id threads listener (vm <vm>))
-  (cond ((== id :repl-thread) listener)
+  (cond ((== id ':repl-thread) listener)
         ((== id 't) listener
          ;;(if (null? threads) 
          ;;    listener 
@@ -704,12 +704,12 @@
       (pack (source-error>elisp e)))))
 
 (df source-error>elisp ((e <source-error>) => <list>)
-  (list :message (to-string (@ message e))
-        :severity (case (integer->char (@ severity e))
-                    ((#\e #\f) :error)
-                    ((#\w) :warning)
-                    (else :note))
-        :location (error-loc>elisp e)))
+  (list ':message (to-string (@ message e))
+        ':severity (case (integer->char (@ severity e))
+                    ((#\e #\f) ':error)
+                    ((#\w) ':warning)
+                    (else ':note))
+        ':location (error-loc>elisp e)))
 
 (df error-loc>elisp ((e <source-error>))
   (cond ((nul? (@ filename e)) `(:error "No source location"))