[nongnu] elpa/macrostep 5e0c28f 068/110: Establish *macroexpand-printer-bindings* before pretty printing

[ELPA Syncer]

branch: elpa/macrostep
commit 5e0c28ffa901ac660d2ec8f59b9a149e4262610e
Author: Luís Borges de Oliveira <lbo@siscog.pt>
Commit: Luís Borges de Oliveira <lbo@siscog.pt>

    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)