[nongnu] externals/sly 9392ac9 32/47: Fix collect-macro-forms in clasp

[ELPA Syncer]

branch: externals/sly
commit 9392ac945e7fe5330068169ab2601be0da0d9612
Author: Chris Schafmeister <meister@temple.edu>
Commit: João Távora <joaotavora@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 <joaotavora@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)))