branch: elpa/slime
commit 3cdc647daad38cc65ee4f95ea0ef31f8bbc7cd64
Author: Stas Boukarev <stass...@gmail.com>
Commit: Stas Boukarev <stass...@gmail.com>
Fix arglist-dispatch for define-compiler-macro.
It could be used on a macro.
Fixes #824
---
contrib/swank-arglists.lisp | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/contrib/swank-arglists.lisp b/contrib/swank-arglists.lisp
index d6424bc096..3d2c87beb3 100644
--- a/contrib/swank-arglists.lisp
+++ b/contrib/swank-arglists.lisp
@@ -1034,13 +1034,12 @@ If the arglist is not available, return
:NOT-AVAILABLE."))
(defmethod arglist-dispatch ((operator (eql 'define-compiler-macro)) arguments)
(match (cons operator arguments)
- (('define-compiler-macro (#'function-exists-p gf-name) . _)
- (let ((gf (fdefinition gf-name)))
- (with-available-arglist (arglist) (decode-arglist (arglist gf))
- (return-from arglist-dispatch
- (make-arglist :provided-args (list gf-name)
- :required-args (list arglist)
- :rest "body" :body-p t)))))
+ (('define-compiler-macro (#'function-exists-p fun-name) . _)
+ (with-available-arglist (arglist) (decode-arglist (arglist fun-name))
+ (return-from arglist-dispatch
+ (make-arglist :provided-args (list fun-name)
+ :required-args (list arglist)
+ :rest "body" :body-p t))))
(_)) ; Fall through
(call-next-method))
