From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 28 Apr 2013 13:37:03 +0000 (+0300)
Subject: abort failed builds instead of soldiering on
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=01bc0504c08506cd992792cdf804570a2d8c7a28

abort failed builds instead of soldiering on
---

diff --git a/jscl.lisp b/jscl.lisp
index 51a6ba6..6350f7c 100644
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -35,7 +35,11 @@
 (with-compilation-unit ()
   (dolist (input *source*)
     (when (member (cadr input) '(:host :both))
-      (compile-file (source-pathname (car input))))))
+      (let ((fname (source-pathname (car input))))
+        (multiple-value-bind (fasl warn fail) (compile-file fname)
+          (declare (ignore fasl warn))
+          (when fail
+            (error "Compilation of ~A failed." fname)))))))
 
 ;;; Load jscl into the host
 (dolist (input *source*)