[slime-cvs] CVS slime/contrib

[trittweiler]

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

Modified Files:
	slime-parse.el 
Log Message:

* swank-parse.lisp (slime-incomplete-form-at-point): Hopefully
  better fix than before.


--- /project/slime/cvsroot/slime/contrib/slime-parse.el	2008/01/10 12:59:18	1.8
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el	2008/01/10 14:07:11	1.9
@@ -23,21 +23,8 @@
             ((:declaration declspec) op)
             ((:type-specifier typespec) op)
             (t 
-	     (let ((user-point (point)))
-	       (save-excursion
-		 (goto-char op-start)
-		 ;; `arg-index' represents to the number of full sexps that
-		 ;; come to the left of the sexp user's point is at.
-		 (let ((full-sexps (slime-ensure-list
-				    (slime-parse-sexp-at-point arg-index))))
-		   (forward-sexp arg-index)
-		   (slime-forward-blanks)
-		   (assert (<= (point) user-point))
-		   (let ((incomplete-sexp
-			  (buffer-substring-no-properties (point) user-point)))
-		     (if (string= incomplete-sexp "")
-			 full-sexps
-		       (append full-sexps (list incomplete-sexp)))))))))))))
+	     (slime-make-form-spec-from-string 
+	      (concat (slime-incomplete-sexp-at-point) ")"))))))))
 
 ;; XXX: unused function
 (defun slime-cl-symbol-external-ref-p (symbol)