[nongnu] elpa/slime 43d62a3 2/3: slime-sbcl-exts: indentation for :generator in define-vop.

[ELPA Syncer]

branch: elpa/slime
commit 43d62a36ecd2b2ed1349388a9abdacca9b100c05
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    slime-sbcl-exts: indentation for :generator in define-vop.
---
 contrib/slime-sbcl-exts.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/contrib/slime-sbcl-exts.el b/contrib/slime-sbcl-exts.el
index ab1c524..4cf7926 100644
--- a/contrib/slime-sbcl-exts.el
+++ b/contrib/slime-sbcl-exts.el
@@ -31,4 +31,17 @@ symbol at point, or if QUERY is non-nil."
   (browse-url (format "http://bugs.launchpad.net/sbcl/+bug/%s"; 
                       (substring bug 1))))
 
+(defun slime-indent-define-vop (path state indent-point sexp-column 
normal-indent)
+  (if (save-excursion
+       (backward-sexp)
+       (ignore-errors (down-list))
+       (looking-at ":generator"))
+      '4
+      (lisp-indent-259 '((&whole 4 &rest 4)
+                         &body)
+                       path state indent-point sexp-column normal-indent)))
+
+(put 'define-vop 'common-lisp-indent-function
+     'slime-indent-define-vop)
+
 (provide 'slime-sbcl-exts)