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