src/middleware/macroexpand.lisp @ ba758da80c62
Minor utils cleanup
author |
Steve Losh <steve@stevelosh.com> |
date |
Sun, 21 Aug 2016 11:49:22 +0000 |
parents |
6eb527beb6b9 |
children |
919ebd924aac |
(in-package #:nrepl)
(defun pretty-string (form)
"Return a prettified string version of `form`, indented nicely."
(with-output-to-string (*standard-output*)
(let ((*print-pretty* t)
(*print-escape* t))
(write form))))
(define-middleware wrap-macroexpand "macroexpand" message
;; TODO: handle mangled input
(let* ((*package* (parse-in-package (fset:lookup message "in-package")))
(form (read-from-string (fset:lookup message "form"))))
(respond message
(make-map
"status" '("done")
"macroexpand" (pretty-string (macroexpand form))
"macroexpand-1" (pretty-string (macroexpand-1 form))))))