[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-autodoc.el swank-arglists.lisp 
Log Message:
* swank-arglists.lisp (print-decoded-arglist): Print keywords using
princ again.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/04/03 10:33:53	1.362
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/04/03 14:03:53	1.363
@@ -1,5 +1,10 @@
 2010-04-03  Stas Boukarev  <stassats at gmail.com>
 
+	* swank-arglists.lisp (print-decoded-arglist): Print keywords using
+	princ again.
+
+2010-04-03  Stas Boukarev  <stassats at gmail.com>
+
 	* swank-arglists.lisp (arglist-dispatch): Handle method qualifiers.
 	(print-arg): Renamed from princ-arg.
 	(prin1-arg): Removed.
--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2010/04/03 10:33:53	1.39
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2010/04/03 14:03:53	1.40
@@ -304,9 +304,9 @@
 
       ;; Test context-sensitive autodoc (ERROR, CERROR)
       ("(error 'simple-condition*HERE*"
-       "(error 'simple-condition &rest arguments &key :format-arguments :format-control)")
+       "(error 'simple-condition &rest arguments &key format-arguments format-control)")
       ("(cerror \"Foo\" 'simple-condition*HERE*"
-       "(cerror \"Foo\" 'simple-condition &rest arguments &key :format-arguments :format-control)")
+       "(cerror \"Foo\" 'simple-condition &rest arguments &key format-arguments format-control)")
       
       ;; Test &KEY and nested arglists
       ("(swank::with-retry-restart (:msg *HERE*"
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/04/03 10:33:53	1.62
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/04/03 14:03:53	1.63
@@ -296,7 +296,7 @@
                          ((not (keywordp keyword))
                           (format t "~:@<(~S ..)~@:>" keyword))
                          (t
-                          (print-arg keyword))))))
+                          (princ keyword))))))
           (&key :finally
              (when (arglist.allow-other-keys-p arglist)
                (space)