[slime-cvs] CVS slime/contrib

[trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv5065/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.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/08/31 22:17:09	1.3
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/01 05:36:07	1.4
@@ -1058,7 +1058,8 @@
   (let ((eval-when-args '(:compile-toplevel :load-toplevel :execute)))
     (maybecall remove-args #'remove-actual-args
 	       (make-arglist :required-args (list (make-arglist :any-args eval-when-args))
-			     :rest '#:body :body-p t))))
+			     :rest '#:body :body-p t)
+	       arguments)))
 
 (defmethod arglist-dispatch ((operator-type (eql :declaration))
                              decl-identifier decl-args &key (remove-args t))