summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-20 00:04:29 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-20 00:04:29 +0100
commit9140c528f4036484a8f0473190aaaddbe3c2b5d7 (patch)
treed4899b358a9266a5dde1e5dc6ceb09f691ab7938
parent07047c33e324ecf4bce23dc8191d7596e10133ea (diff)
After copying the system, do a sanity test on the target directory before proceeding.
darcs-hash:f93dd34bf4fea90f5f7481a03edd40f912011121
-rw-r--r--objective-cl-libobjcl.asd3
1 files changed, 2 insertions, 1 deletions
diff --git a/objective-cl-libobjcl.asd b/objective-cl-libobjcl.asd
index fb84218..c37c647 100644
--- a/objective-cl-libobjcl.asd
+++ b/objective-cl-libobjcl.asd
@@ -171,7 +171,8 @@
output-parent-dir)))
(zerop (run-shell-command "cp -R -P -f -p '~A' '~A/'"
(sanitise-dir-name source-dir)
- output-parent-dir)))))
+ output-parent-dir))))
+ (probe-file (merge-pathnames "GNUmakefile" output-dir)))
;; We couldn't use cp. Copy the files manually.
(let ((sources
(mapcar #'(lambda (x)