src/middleware/load-file.lisp @ 7d0cd39ee703

Don't shit the bed when `load`ing a file with errors

Refactored the evaluator a bit so the file loading middleware can just use the
same evaluation machinery and get all the error handling and stream shuttling
for free.

(in-package #:nrepl)

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