branch: externals/sly
commit 9392ac945e7fe5330068169ab2601be0da0d9612
Author: Chris Schafmeister <meis...@temple.edu>
Commit: João Távora <joaotav...@gmail.com>
Fix collect-macro-forms in clasp
* slynk/backend/clasp.lisp: Fix collect-macro-forms.
Cherry-picked-from: SLIME commit 5d129d086e4d061fb6e8f3976fec4fdd57184c0c
Co-authored-by: João Távora <joaotav...@gmail.com>
---
slynk/backend/clasp.lisp | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/slynk/backend/clasp.lisp b/slynk/backend/clasp.lisp
index 47a2cf1..3710aa8 100644
--- a/slynk/backend/clasp.lisp
+++ b/slynk/backend/clasp.lisp
@@ -337,8 +337,6 @@
(function-quoted-forms '()))
(format t "In collect-macro-forms~%")
(cmp:code-walk
- form environment
- :code-walker-function
(lambda (form environment)
(when (and (consp form)
(symbolp (car form)))
@@ -350,7 +348,8 @@
(push form macro-forms))
((not (eq form (core:compiler-macroexpand-1 form environment)))
(push form compiler-macro-forms))))
- form))
+ form)
+ form environment)
(values macro-forms compiler-macro-forms)))
