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