hg.stevelosh.com > cl-nrepl

src/middleware/macroexpand.lisp @ 3e9db801d234 

Clean up some of the middleware code
author Steve Losh <steve@stevelosh.com>
date Sat, 09 Apr 2016 21:13:26 +0000
parents d74fc3dab8fa
children 9d3d9514dbd8 
(in-package #:nrepl)

(define-middleware wrap-macroexpand "macroexpand" message
  (let ((form (read-from-string (fset:lookup message "form"))))
    (respond message
             (make-map
               "status" '("done")
               "macroexpand" (format nil "~A" (macroexpand form))
               "macroexpand-1" (format nil "~A" (macroexpand-1 form))))))