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

[gb at clozure.com]

Author: gb
Date: Fri Dec  9 01:33:08 2011
New Revision: 15125

Log:
Use default optimization settings by ... default in TEST-CCL.

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 Fri Dec  9 01:33:08 2011
@@ -858,7 +858,7 @@
         (prog1
             (time (funcall do-tests :verbose verbose :compile t
                            :catch-errors catch-errors
-                           :optimization-settings (or optimization-setting=
s '((safety 2)))))
+                           :optimization-settings (or optimization-setting=
s '((speed 1) (space 1) (safety 1) (debug 1) (compilation-speed 1)))))
           ;; Clean up a little
           (map nil #'delete-file
                (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ans=
i-tests;temp*"))))