hg.stevelosh.com > cl-nrepl

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

Clean up the godawful utils file
author Steve Losh <steve@stevelosh.com>
date Sat, 09 Apr 2016 21:04:26 +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"))))