Index: /trunk/source/lib/compile-ccl.lisp
===================================================================
--- /trunk/source/lib/compile-ccl.lisp	(revision 14009)
+++ /trunk/source/lib/compile-ccl.lisp	(revision 14010)
@@ -798,5 +798,5 @@
 
 (defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t)
-                      optimization-settings)
+                      optimization-settings exit)
   (with-preserved-working-directory ()
     (let* ((*package* (find-package "CL-USER")))
@@ -813,3 +813,7 @@
           (map nil #'delete-file
                (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ansi-tests;temp*"))))
-        (symbol-value failed)))))
+	(let ((failed-tests (symbol-value failed)))
+	  (when exit
+	    (quit (if failed-tests 1 0)))
+	  failed-tests)))))
+