diff --git a/hemlock/lispbuf.lisp b/hemlock/lispbuf.lisp index 81e58e6adb7f2ca464b283f22d069550897b82fc..843a30bd6ef26ce80c5b76343aaeee79231cc61d 100644 --- a/hemlock/lispbuf.lisp +++ b/hemlock/lispbuf.lisp @@ -429,7 +429,7 @@ (with-input-from-region (stream region) (with-pop-up-display (*error-output* :height 19) (c::compile-from-stream stream - :defined-from-pathname + :source-info (buffer-pathname (current-buffer)))))))