64-bit fix

diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp
index 7561874ec4606582ff393b157cd687774bfb7a2f..ee47e2e58b41fad1e0fed3d2ae6abed35ecb8057 100644 (file)
--- a/gdk/gdktypes.lisp
+++ b/gdk/gdktypes.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 

-;; $Id: gdktypes.lisp,v 1.22 2006/02/26 23:47:50 espen Exp $
+;; $Id: gdktypes.lisp,v 1.23 2006/04/10 18:16:24 espen Exp $

 
 (in-package "GDK")
 
 
 (in-package "GDK")
 


@@ -36,19 +36,19 @@ (eval-when (:compile-toplevel :load-toplevel :execute)
 (defclass color (boxed)
   ((pixel
     :allocation :alien
 (defclass color (boxed)
   ((pixel
     :allocation :alien

-    :type unsigned-long)
+    :type (unsigned 32))

    (red
     :allocation :alien
     :accessor color-red
    (red
     :allocation :alien
     :accessor color-red

-    :type unsigned-short)
+    :type (unsigned 16))

    (green
     :allocation :alien :offset 6
     :accessor color-green
    (green
     :allocation :alien :offset 6
     :accessor color-green

-    :type unsigned-short)
+    :type (unsigned 16))

    (blue
     :allocation :alien  :offset 8
     :accessor color-blue
    (blue
     :allocation :alien  :offset 8
     :accessor color-blue

-    :type unsigned-short))
+    :type (unsigned 16)))

   (:metaclass boxed-class))
 
 
   (:metaclass boxed-class))