[slime-cvs] CVS slime/contrib

[CVS User nsiivola]

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

Modified Files:
	ChangeLog slime-cl-indent-test.txt slime-cl-indent.el 
Log Message:
slime-indentation: with-compilation-unit indentation

  Add indentation method for it.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/06/14 10:27:22	1.483
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/06/14 13:59:31	1.484
@@ -1,5 +1,11 @@
 2011-06-14  Nikodemus Siivola  <nikodemus at random-state.net>
 
+	WITH-COMPILATION-UNIT indentation.
+
+	* slime-cl-indent.el: Add indentation method.
+
+	* slime-cl-indent-test.txt: Test 47.
+
 	Fix indentation of incomplete destructring.
 
 	* slime-cl-indent.el (lisp-indent-259): If there's a level of
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent-test.txt	2011/06/14 10:27:22	1.8
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent-test.txt	2011/06/14 13:59:31	1.9
@@ -497,3 +497,11 @@
 (let (foo bar
       quux)
   ...)
+
+;;; Test: 47
+
+(with-compilation-unit 
+    (:foo t
+     :quux nil)
+  ...)
+
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/06/14 10:27:22	1.46
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/06/14 13:59:31	1.47
@@ -1539,6 +1539,7 @@
            (unwind-protect (5 &body))
            (when 1)
            (with-accessors          (as multiple-value-bind))
+           (with-compilation-unit   ((&whole 4 &rest 1) &body))
            (with-condition-restarts (as multiple-value-bind))
            (with-output-to-string (4 2))
            (with-slots              (as multiple-value-bind))