[slime-cvs] CVS slime/contrib

trittweiler trittweiler at common-lisp.net
Sat Sep 1 05:36:19 UTC 2007


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

Modified Files:
	slime-parse.el 
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/slime-parse.el	2007/08/31 11:48:23	1.1
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el	2007/09/01 05:36:19	1.2
@@ -100,7 +100,7 @@
         (let ((result nil))
           (dotimes (i n)
             ;; `foo(bar baz)' where point is at ?\( or ?\).
-            (if (member (char-syntax (char-after)) '(?\( ?\) ?\'))
+            (if (and (char-after) (member (char-syntax (char-after)) '(?\( ?\) ?\')))
                 (push (sexp-at-point :sexp-first) result)
                 (push (sexp-at-point :symbol-first) result))
             (ignore-errors (forward-sexp) (slime-forward-blanks))




More information about the slime-cvs mailing list