hg.stevelosh.com > cl-nrepl

src/middleware/load-file.lisp @ c8a2b5ade9f8 

Fix quickutil fuckery
author Steve Losh <steve@stevelosh.com>
date Sun, 20 Nov 2016 18:02:44 +0000
parents 919ebd924aac
children (none) 
(in-package :nrepl)

(define-middleware wrap-load-file "load-file" message
  (let ((path (fset:lookup message "path")))
    (evaluate-forms message (list `(load ,path)))))