hg.stevelosh.com > cl-nrepl

(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"))))
author	Steve Losh <steve@stevelosh.com>
date	Wed, 09 Dec 2015 17:47:41 +0000
parents	(none)
children	743c0a981785