[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv29042/contrib

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
* contrib/swank-arglists.lisp (compute-enriched-decoded-arglist): Add
arglist display for MULTIPLE-VALUE-CALL, the same as with APPLY.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2012/03/14 17:13:15	1.537
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2012/03/19 14:27:04	1.538
@@ -1,3 +1,8 @@
+2012-03-19  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-arglists.lisp (compute-enriched-decoded-arglist): Add
+	arglist display for MULTIPLE-VALUE-CALL, the same as with APPLY.
+
 2012-03-09  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-motd.lisp,
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2012/03/08 03:04:48	1.72
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2012/03/19 14:27:04	1.73
@@ -918,6 +918,10 @@
                       t)))))))
   (call-next-method))
 
+(defmethod compute-enriched-decoded-arglist
+    ((operator-form (eql 'multiple-value-call)) argument-forms)
+  (compute-enriched-decoded-arglist 'apply argument-forms))
+
 (defun delete-given-args (decoded-arglist args)
   "Delete given ARGS from DECODED-ARGLIST."
   (macrolet ((pop-or-return (list)