merged.

Pascal J. Bourguignon [2014-04-12 23:39]
merged.
Filename
tools/com.informatimago.tools.quicklisp.asd
tools/manifest.lisp
diff --git a/tools/com.informatimago.tools.quicklisp.asd b/tools/com.informatimago.tools.quicklisp.asd
index b25866f..0273544 100644
--- a/tools/com.informatimago.tools.quicklisp.asd
+++ b/tools/com.informatimago.tools.quicklisp.asd
@@ -38,7 +38,7 @@
     :author "Pascal J. Bourguignon"
     :version "1.0.0"
     :license "GPL3"
-    :depends-on ("quicklisp"
+    :depends-on (;; assumed ;; "quicklisp"
                  "com.informatimago.tools.pathname")
     :components ((:file "quicklisp")
                  (:file "asdf" :depends-on ("quicklisp"))))
diff --git a/tools/manifest.lisp b/tools/manifest.lisp
index 06e7b96..d7f1194 100644
--- a/tools/manifest.lisp
+++ b/tools/manifest.lisp
@@ -332,10 +332,16 @@ DO:     write a {program-name}-{distribution}.manifest file for the given SYSTEM
 "
   (let ((base   (executable-name     program-name))
         (exec   (executable-filename program-name)))
-    (with-open-file (*standard-output*  (format nil "~A.manifest" base)
-                                        :direction :output
-                                        :if-does-not-exist :create
-                                        :if-exists :supersede)
+    (with-open-file (*standard-output*
+                     ;; Bug in ccl:
+                     ;; "Version 1.9-r15757  (LinuxX8664)"
+                     ;; "Version 1.9-r15759  (DarwinX8664)"
+                     ;; doesn't use *default-pathname-defaults* :-(
+                     (merge-pathnames (format nil "~A.manifest" base)
+                                      *default-pathname-defaults*)
+                     :direction :output
+                     :if-does-not-exist :create
+                     :if-exists :supersede)
       (format t "Manifest for ~A~%~V,,,'-<~>~2%" exec
               (+ (length "Manifest for ") (length exec)))
       (print-manifest system)
ViewGit