hg.stevelosh.com > cl-nrepl

src/middleware/load-file.lisp @ 9f3dbec1414f 

Clean up the ASD file
author Steve Losh <steve@stevelosh.com>
date Sat, 09 Apr 2016 20:47:56 +0000
parents 743c0a981785
children 7d0cd39ee703 
(in-package #:nrepl)

(define-middleware wrap-load-file "load-file" message
  (let ((path (fset:lookup message "path")))
    (load path)
    (respond message (make-map "status" '("done")
                               "value" "T"))))