From 01bc0504c08506cd992792cdf804570a2d8c7a28 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 28 Apr 2013 16:37:03 +0300 Subject: [PATCH] abort failed builds instead of soldiering on --- jscl.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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*) -- 1.7.10.4