[slime-cvs] CVS slime/contrib

[trittweiler]

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

Modified Files:
	swank-arglists.lisp 
Log Message:
Makes `slime-complete-form' work on `(eval-when |'; doesn't work
on `(eval-when (|' yet.
	
* slime-parse.el (slime-parse-sexp-at-point): Guard against
  `(char-after)' being NIL at end of buffer (especially important
  for use on the REPL.)

* swank-arglist.lisp (arglist-dispatch 'eval-when): Fix typo.
  (print-decoded-arglist-as-template): Print keywords with PRIN1.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/01 05:36:07	1.4
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/01 05:39:11	1.5
@@ -649,7 +649,7 @@
                (setq first-p nil))
              (print-arg-or-pattern (arg)
                (etypecase arg
-                 (symbol (princ arg))
+                 (symbol (if (keywordp arg) (prin1 arg) (princ arg)))
                  (string (princ arg))
                  (list   (princ arg))
                  (arglist (print-decoded-arglist-as-template arg)))))