[slime-cvs] CVS slime/contrib

[trittweiler]

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

Modified Files:
	swank-arglists.lisp 
Log Message:

* swank-arglist.lisp (read-conversatively-for-autodoc): Also parse
  quoted symbols explicitly. This fixed extended arglist display for
  `(make-instance 'foo'. Reported by: Johannes Groedem.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/05 19:35:46	1.9
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/09/11 12:33:00	1.10
@@ -86,8 +86,13 @@
 In such a case (that no symbol could be found), the object
 *ARGLIST-DUMMY* is returned instead, which works as a placeholder
 datum for subsequent logics to rely on."
-  (multiple-value-bind (symbol found?) (parse-symbol string)
-    (if found? symbol *arglist-dummy*)))
+  (let* ((string  (string-left-trim '(#\Space #\Tab #\Newline) string))
+	 (quoted? (eql (aref string 0) #\')))
+    (multiple-value-bind (symbol found?)
+	(parse-symbol (if quoted? (subseq string 1) string))
+      (if found?
+	  (if quoted? `(quote ,symbol) symbol)
+	  *arglist-dummy*))))
 
 
 (defun parse-form-spec (raw-spec &optional reader)