[slime-cvs] CVS slime/contrib

[CVS User nsiivola]

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

Modified Files:
	ChangeLog slime-cl-indent-test.txt slime-cl-indent.el 
Log Message:
slime-indentation: indent boa-constructor lambda-lists properly

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/06/10 19:02:09	1.476
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/06/10 20:03:33	1.477
@@ -1,5 +1,12 @@
 2011-06-10  Nikodemus Siivola  <nikodemus at random-state.net>
 
+	Boa-constructor indentation.
+
+	* slime-cl-indent.el: Give :constructor the appropriate
+	indentation method.
+
+	* slime-cl-indent-test.txt: Test-case 39.
+
 	* slime-cl-indent.el (common-lisp-indent-function-1): Missing
 	paren. Teaches me to to paredit.
 
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent-test.txt	2011/06/10 17:13:04	1.4
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent-test.txt	2011/06/10 20:03:33	1.5
@@ -420,3 +420,18 @@
            ,(even-more)
            (foo foo))
        , at bofy)))
+
+;;; Test: 39
+;;
+;; lisp-lambda-list-keyword-parameter-alignment: t
+;; lisp-lambda-list-keyword-alignment: t
+
+(defstruct (foo (:constructor make-foo (&optional bar
+                                                  quux
+                                        &key zot
+                                             fii)))
+  bar
+  quux
+  zot
+  fii)
+
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/06/10 19:02:09	1.39
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/06/10 20:03:33	1.40
@@ -1409,6 +1409,8 @@
            (ctypecase   (as case))
            (catch 1)
            (cond        (&rest (&whole 2 &rest 1)))
+           ;; for DEFSTRUCT
+           (:constructor (4 &lambda))
            (defvar      (4 2 2))
            (defclass    (6 4 (&whole 2 &rest 1) (&whole 2 &rest 1)))
            (defconstant (as defvar))