[Openmcl-cvs-notifications] r12576 - /release/1.3/source/examples/cocoa/easygui/views.lisp

[gb at clozure.com]

Author: gb
Date: Thu Aug 13 16:59:58 2009
New Revision: 12576

Log:
Don't make  OPTIMIZE declamation persistent.

Modified:
    release/1.3/source/examples/cocoa/easygui/views.lisp

Modified: release/1.3/source/examples/cocoa/easygui/views.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
--- release/1.3/source/examples/cocoa/easygui/views.lisp (original)
+++ release/1.3/source/examples/cocoa/easygui/views.lisp Thu Aug 13 16:59:5=
8 2009
@@ -29,7 +29,9 @@
 ; - Shift, Command, Control and Option keys may be interrogated
 ; ----------------------------------------------------------------------
 =

-(declaim (optimize (speed 0) (space 0) (compilation-speed 0) (safety 3) (d=
ebug 3)))
+(eval-when (:compile-toplevel)
+  (declaim (optimize (speed 0) (space 0) (compilation-speed 0) (safety 3) =
(debug 3))))
+
 =

 (defmacro running-on-this-thread ((&key (waitp t)) &rest body)
 ;; The purpose of this trivial macro is to mark places where it is thought=
 possible that