branch: elpa/macrostep
commit c748996382f063332dea7977fb2ef27e186715d2
Author: joddie <[email protected]>
Commit: joddie <[email protected]>
Tweak macrostep-slime-macro-form-p
Avoid errors on lists with a non-symbol car
---
macrostep.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/macrostep.el b/macrostep.el
index 391ec56..3816eb1 100644
--- a/macrostep.el
+++ b/macrostep.el
@@ -958,7 +958,8 @@ expansion will not be fontified. See also
(cl:let ((sexp (cl:read-from-string ,form))
(expand-compiler-macros ,macrostep-expand-compiler-macros))
(cl:cond
- ((cl:not (cl:consp sexp))
+ ((cl:or (cl:not (cl:consp sexp))
+ (cl:not (cl:symbolp (cl:car sexp))))
nil)
((cl:eq (cl:car sexp) 'cl:lambda)
nil)
