[graphic-forms-cvs] r115 - trunk/src/uitoolkit/widgets

[junrue at common-lisp.net]

Author: junrue
Date: Tue May  2 01:02:27 2006
New Revision: 115

Modified:
   trunk/src/uitoolkit/widgets/layout.lisp
Log:
corrected a compiler warning issued by LispWorks

Modified: trunk/src/uitoolkit/widgets/layout.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/layout.lisp	(original)
+++ trunk/src/uitoolkit/widgets/layout.lisp	Tue May  2 01:02:27 2006
@@ -33,10 +33,11 @@
 
 (in-package :graphic-forms.uitoolkit.widgets)
 
-(defconstant +window-pos-flags+ (logior gfs::+swp-nozorder+
-                                        gfs::+swp-noownerzorder+
-                                        gfs::+swp-noactivate+
-                                        gfs::+swp-nocopybits+))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defconstant +window-pos-flags+ (logior gfs::+swp-nozorder+
+                                          gfs::+swp-noownerzorder+
+                                          gfs::+swp-noactivate+
+                                          gfs::+swp-nocopybits+)))
 
 ;;;
 ;;; methods