[slime-cvs] CVS slime/contrib

[CVS User nsiivola]

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

Modified Files:
	ChangeLog slime-cl-indent-test.txt slime-cl-indent.el 
Log Message:
slime-indentation: better DEFCLASS and DEFINE-CONDITION superclass indentation


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/27 19:24:33	1.509
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/28 12:46:56	1.510
@@ -1,3 +1,10 @@
+2011-11-28  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	* slime-cl-indent.el: fix DEFCLASS and DEFINE-CONDITION superclass-list
+	indentation.
+
+	* slime-cl-indent-test.txt: Add tests 66 and 67.
+
 2011-11-27  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-repl.el (slime-repl-choose-coding-system): New.
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent-test.txt	2011/11/12 12:01:52	1.13
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent-test.txt	2011/11/28 12:46:56	1.14
@@ -686,3 +686,23 @@
 (defmethod (setf foo)
     :around (zot &key x y)
   (list zot))
+
+;;; Test: 66
+;;
+
+(define-condition
+      foo
+    (bar quux
+     zot)
+  ()
+  (:report "foo"))
+
+;;; Test: 67
+;;
+
+(defclass
+      foo
+    (bar quxx
+     xoo)
+  ()
+  (:metaclass foo-class))
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/11/19 16:41:33	1.55
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/11/28 12:46:56	1.56
@@ -1502,7 +1502,7 @@
            ;; for DEFSTRUCT
            (:constructor (4 &lambda))
            (defvar      (4 2 2))
-           (defclass    (6 4 (&whole 2 &rest 1) (&whole 2 &rest 1)))
+           (defclass    (6 (&whole 4 &rest 1) (&whole 2 &rest 1) (&whole 2 &rest 1)))
            (defconstant (as defvar))
            (defcustom   (4 2 2 2))
            (defparameter     (as defvar))