diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 00:04:29 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 00:04:29 +0100 |
| commit | 9140c528f4036484a8f0473190aaaddbe3c2b5d7 (patch) | |
| tree | d4899b358a9266a5dde1e5dc6ceb09f691ab7938 | |
| parent | 07047c33e324ecf4bce23dc8191d7596e10133ea (diff) | |
After copying the system, do a sanity test on the target directory before proceeding.
darcs-hash:f93dd34bf4fea90f5f7481a03edd40f912011121
| -rw-r--r-- | objective-cl-libobjcl.asd | 3 |
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) |