# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1467309173 0
# Node ID 13136d4b4761abafac1a82f0460e3752ce157a0c
# Parent  05ce726f28744cb1c412e0f450fac3b978a6001d
Run the tests on CCL too

Everything already Just Works on CCL, so we may as well support
a second implementation.

diff -r 05ce726f2874 -r 13136d4b4761 Makefile
--- a/Makefile	Wed Jun 29 16:49:25 2016 +0000
+++ b/Makefile	Thu Jun 30 17:52:53 2016 +0000
@@ -5,7 +5,11 @@
 apidoc = docs/03-reference.markdown
 
 test:
-	sbcl-rlwrap --noinform --load test/run.lisp  --eval '(quit)'
+	figlet -kf big 'SBCL'
+	ros run -L sbcl --load test/run.lisp
+
+	figlet -kf big 'CCL'
+	ros run -L ccl-bin --load test/run.lisp
 
 src/quickutils.lisp: src/make-quickutils.lisp
 	cd src && sbcl-rlwrap --noinform --load make-quickutils.lisp  --eval '(quit)'
diff -r 05ce726f2874 -r 13136d4b4761 test/run.lisp
--- a/test/run.lisp	Wed Jun 29 16:49:25 2016 +0000
+++ b/test/run.lisp	Thu Jun 30 17:52:53 2016 +0000
@@ -15,4 +15,6 @@
 (test :bones.wam)
 (test :bones.circle)
 
-(sb-ext:exit :code (if *passed* 0 1))
+(let ((exit-code (if *passed* 0 1)))
+  #+sbcl (sb-ext:exit :code exit-code)
+  #+ccl (quit exit-code))