From 2ce30f2b60b65b1cb97c41e1aed71453485d41ea Mon Sep 17 00:00:00 2001 From: Owen Rodley Date: Tue, 9 Jul 2013 16:54:04 +1200 Subject: [PATCH] Print relative pathnames when compiling test files Previously absolute pathnames were printed, in contrast the the relative pathnames printed when compiling the rest of the project. --- jscl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/jscl.lisp b/jscl.lisp index 9dd2b5a..d2f321c 100644 --- a/jscl.lisp +++ b/jscl.lisp @@ -113,7 +113,7 @@ (*compile-print-toplevels* print)) (let* ((source (read-whole-file filename)) (in (make-string-stream source))) - (format t "Compiling ~a...~%" filename) + (format t "Compiling ~a...~%" (enough-namestring filename)) (loop with eof-mark = (gensym) for x = (ls-read in nil eof-mark) -- 1.7.10.4