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

[gz at clozure.com]

Author: gz
Date: Tue Apr 15 15:40:37 2008
New Revision: 9164

Log:
Oops

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 Tue Apr 15 15:40:37 2008
@@ -599,7 +599,7 @@
 	      , at body)
 	 (cwd ,wd)))))
 =

-(defun ensure-tests-loaded (&key force full)
+(defun ensure-tests-loaded (&key force update)
   (unless (and (find-package "REGRESSION-TEST") (not force))
     (if (probe-file "ccl:tests;ansi-tests;")
       (when update