Closes #145 fixing keyword dumping

[jscl.git] / jscl.lisp

diff --git a/jscl.lisp b/jscl.lisp
index 9dd2b5a..8378417 100644 (file)
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -36,28 +36,30 @@
 ;;; target, and that src/bar/baz.lisp and src/bar/quux.lisp need to be
 ;;; compiled in the host
 (defvar *source*
-  '(("boot"        :target)
-    ("compat"      :host)
-    ("utils"       :both)
-    ("numbers"     :target)
-    ("char"        :target)
-    ("list"        :target)
-    ("array"       :target)
-    ("string"      :target)
-    ("sequence"    :target)
-    ("stream"      :target)
-    ("print"       :target)
-    ("package"     :target)
-    ("misc"        :target)
-    ("ffi"         :both)
-    ("read"        :both)
-    ("defstruct"   :both)
-    ("lambda-list" :both)
-    ("backquote"   :both)
+  '(("boot"          :target)
+    ("compat"        :host)
+    ("utils"         :both)
+    ("numbers"       :target)
+    ("char"          :target)
+    ("list"          :target)
+    ("array"         :target)
+    ("string"        :target)
+    ("sequence"      :target)
+    ("stream"        :target)
+    ("print"         :target)
+    ("documentation" :target)
+    ("misc"          :target)
+    ("ffi"           :target)
+    ("package"       :target)
+
+    ("read"          :both)
+    ("defstruct"     :both)
+    ("lambda-list"   :both)
+    ("backquote"     :both)
     ("compiler"
-     ("codegen"    :both)
-     ("compiler"   :both))
-    ("toplevel"    :target)))
+     ("codegen"      :both)
+     ("compiler"     :both))
+    ("toplevel"      :target)))
 
 (defun get-files (file-list type dir)
   "Traverse FILE-LIST and retrieve a list of the files within which match
@@ -113,7 +115,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)