? slime-fix-if-indentation.diff
Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.1359
diff -u -r1.1359 ChangeLog
--- ChangeLog	7 Jun 2008 11:50:24 -0000	1.1359
+++ ChangeLog	22 Jun 2008 15:32:57 -0000
@@ -1,3 +1,7 @@
+2008-06-22  Luís Oliveira  <loliveira@common-lisp.net>
+
+	* contrib/slime-indentation.el: fix indentation of IF forms.
+
 2008-06-07  Tobias C. Rittweiler  <tcr@freebits.de>
 
 	* slime.el (def-slime-test find-definition.2, arglist):
Index: contrib/slime-indentation.el
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/slime-indentation.el,v
retrieving revision 1.2
diff -u -r1.2 slime-indentation.el
--- contrib/slime-indentation.el	14 Apr 2008 21:31:20 -0000	1.2
+++ contrib/slime-indentation.el	22 Jun 2008 15:32:58 -0000
@@ -1065,7 +1065,7 @@
 	  (flet		((&whole 4 &rest (&whole 1 (&whole 4 &rest 1) &body))
 			 &body))
 	  (labels . flet) (macrolet . flet)
-	  (if		(&rest 2))
+	  (if		(&rest 4))
 	  ;; FIXME: Which of those do I really want?
 	  ;; (lambda	((&whole 4 &rest 1) &body))
 	  (lambda	((&whole 4 &rest 1)