From: Owen Rodley <Strigoides@gmail.com>
Date: Tue, 9 Jul 2013 04:54:04 +0000 (+1200)
Subject: Print relative pathnames when compiling test files
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=2ce30f2b60b65b1cb97c41e1aed71453485d41ea

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.
---

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)