[slime-cvs] CVS slime/contrib

[trittweiler]

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

Modified Files:
	swank-arglists.lisp 
Log Message:

* swank-arglist.lisp (read-form-spec): Added assertion against
  receiving junk form specs from Emacs.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/01/10 00:43:03	1.17
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2008/01/10 20:00:17	1.18
@@ -239,7 +239,8 @@
 the flag if a symbol had to be interned."
   (multiple-value-bind (sexp pos interned?)
       (read-softly-from-string string)
-    (declare (ignore pos))
+    ;; To make sure that we haven't got any junk from Emacs.
+    (assert (= pos (length string)))
     (values sexp interned?)))