[Openmcl-cvs-notifications] r14010 - /trunk/source/lib/compile-ccl.lisp

[rme at clozure.com]

Author: rme
Date: Wed Jul 21 15:39:58 2010
New Revision: 14010

Log:
Add :exit keyword argument to test-ccl.  When t, the lisp will
exit with code 1 if any tests fail.  If all the tests pass, it
will exit with code 0.

Modified:
    trunk/source/lib/compile-ccl.lisp

Modified: trunk/source/lib/compile-ccl.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/compile-ccl.lisp (original)
+++ trunk/source/lib/compile-ccl.lisp Wed Jul 21 15:39:58 2010
@@ -797,7 +797,7 @@
             (load "ccl:tests;ansi-tests;ccl.lsp")))))))
 =

 (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")))
       (ensure-tests-loaded :force force :update update :ansi ansi :ccl ccl)
@@ -812,4 +812,8 @@
           ;; Clean up a little
           (map nil #'delete-file
                (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ans=
i-tests;temp*"))))
-        (symbol-value failed)))))
+	(let ((failed-tests (symbol-value failed)))
+	  (when exit
+	    (quit (if failed-tests 1 0)))
+	  failed-tests)))))
+