hg.stevelosh.com > cl-nrepl

src/middleware/load-file.lisp @ 60462d4304de 

Use in-package for arglist lookup
author Steve Losh <steve@stevelosh.com>
date Sat, 02 Jul 2016 23:19:07 +0000
parents 7d0cd39ee703
children 919ebd924aac 
(in-package #:nrepl)

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