[armedbear-cvs] r11683 - trunk/abcl

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Feb 22 22:38:45 2009
New Revision: 11683

Log:
Some small tweaks and a fixme note.

Modified:
   trunk/abcl/build-abcl.lisp

Modified: trunk/abcl/build-abcl.lisp
==============================================================================
--- trunk/abcl/build-abcl.lisp	(original)
+++ trunk/abcl/build-abcl.lisp	Sun Feb 22 22:38:45 2009
@@ -248,7 +248,7 @@
   (concatenate 'string
                *java-compiler-command-line-prefix*
                " -d "
-               (princ-to-string *build-root*)
+               (safe-namestring *build-root*)
                " "
                (namestring source-file)))
 
@@ -261,7 +261,10 @@
           (remove-if-not #'(lambda (name)
                              (let ((output-name
                                     (make-pathname :type "class"
-                                                     :defaults name)))
+;;                                                   :name (pathname-name name)
+;;###FIXME: we need defaults from *build-root*,
+;; taking the bit of name which is below *abcl-dir*
+                                                   :defaults name)))
                                (or force
                                    (null (probe-file output-name))
                                    (>= (file-write-date name)