[slime-cvs] CVS slime/contrib

[CVS User nsiivola]

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

Modified Files:
	ChangeLog slime-cl-indent.el 
Log Message:
slime-indentation: better named-lambda and destructuring-bind indentation

  Make both apply the newfangled lambda-list indentation mechanism.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/05/31 10:30:02	1.463
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/06/04 18:20:15	1.464
@@ -1,3 +1,9 @@
+2011-06-04  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	* slime-cl-indent.el (toplevel):
+	(run-lisp-indent-tests): Better named-lambda and
+	destructuring-bind indenation.
+
 2011-05-31  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-package-fu.el (slime-export-symbol-representation-auto):
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/05/19 18:25:40	1.25
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/06/04 18:20:15	1.26
@@ -1046,8 +1046,7 @@
            (defpackage  (4 2))
            (defstruct   ((&whole 4 &rest (&whole 2 &rest 1))
                          &rest (&whole 2 &rest 1)))
-           (destructuring-bind
-                        ((&whole 6 &rest 1) 4 &body))
+           (destructuring-bind (&lambda 4 &body))
            (do          lisp-indent-do)
            (do* . do)
            (dolist      ((&whole 4 2 1) &body))
@@ -1077,6 +1076,7 @@
            (multiple-value-prog1 1)
            (multiple-value-setq (4 2))
            (multiple-value-setf . multiple-value-setq)
+           (named-lambda (4 &lambda &rest lisp-indent-function-lambda-hack))
            (pprint-logical-block (4 2))
            (print-unreadable-object ((&whole 4 1 &rest 1) &body))
            ;; Combines the worst features of BLOCK, LET and TAGBODY
@@ -1373,7 +1373,24 @@
                       &rest r
                       &key k1 k2
                       k3 k4)
-        'hello)"))))
+        'hello)")
+       (((lisp-lambda-list-keyword-parameter-alignment t)
+         (lisp-lambda-list-keyword-alignment t))
+        "
+     (destructuring-bind (foo &optional x
+                                        y 
+                              &key bar
+                                   quux)
+         foo
+       body)")
+       (((lisp-lambda-list-keyword-parameter-alignment t)
+         (lisp-lambda-list-keyword-alignment t))
+        "
+     (named-lambda foo
+         (x &optional y
+                      z
+            &rest more)
+       body)"))))