[slime-cvs] CVS slime

[alendvai]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv28605

Modified Files:
	swank.lisp 
Log Message:
FIX: keyword symbols keep their : when travelling from swank to slime


--- /project/slime/cvsroot/slime/swank.lisp	2007/01/03 10:56:14	1.446
+++ /project/slime/cvsroot/slime/swank.lisp	2007/01/03 11:09:29	1.447
@@ -1207,7 +1207,7 @@
 
 Characters are converted emacs' ?<char> notaion, strings are left
 as they are (except for espacing any nested \" chars, numbers are
-printed in base 10 and symbols are printed as their symbol-nome
+printed in base 10 and symbols are printed as their symbol-name
 converted to lower case."
   (etypecase form
     (string (format nil "~S" form))
@@ -1215,7 +1215,10 @@
                   (process-form-for-emacs (car form))
                   (process-form-for-emacs (cdr form))))
     (character (format nil "?~C" form))
-    (symbol (string-downcase (symbol-name form)))
+    (symbol (concatenate 'string (when (eq (symbol-package form)
+                                           #.(find-package "KEYWORD"))
+                                   ":")
+                         (string-downcase (symbol-name form))))
     (number (let ((*print-base* 10))
               (princ-to-string form)))))