branch: elpa/macrostep
commit 5e0c28ffa901ac660d2ec8f59b9a149e4262610e
Author: Luís Borges de Oliveira <[email protected]>
Commit: Luís Borges de Oliveira <[email protected]>
Establish *macroexpand-printer-bindings* before pretty printing
---
swank-macrostep.lisp | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/swank-macrostep.lisp b/swank-macrostep.lisp
index 0ca3fba..c94750b 100644
--- a/swank-macrostep.lisp
+++ b/swank-macrostep.lisp
@@ -2,7 +2,9 @@
(defpackage swank-macrostep
(:use cl swank)
(:import-from swank
+ #:*macroexpand-printer-bindings*
#:with-buffer-syntax
+ #:with-bindings
#:to-string
#:macroexpand-all
#:compiler-macroexpand-1)
@@ -28,7 +30,8 @@
(if expanded?
expansion
(error "Not a macro or compiler-macro
form.")))))))
- (pretty-expansion (to-string expansion)))
+ (pretty-expansion (with-bindings *macroexpand-printer-bindings*
+ (to-string expansion))))
(list pretty-expansion
(multiple-value-bind (expansion* tracking-stream)
(tracking-read-from-string pretty-expansion)
