From d02a77d72c1ec2d621c9c0c13ffc7bb45cf45302 Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Mon, 10 Apr 2006 18:16:24 +0000
Subject: [PATCH] 64-bit fix

---
 gdk/gdktypes.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp
index 84383a5..07a303b 100644
--- 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.
 
-;; $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")
 
@@ -36,19 +36,19 @@
 (defclass color (boxed)
   ((pixel
     :allocation :alien
-    :type unsigned-long)
+    :type (unsigned 32))
    (red
     :allocation :alien
     :accessor color-red
-    :type unsigned-short)
+    :type (unsigned 16))
    (green
     :allocation :alien :offset 6
     :accessor color-green
-    :type unsigned-short)
+    :type (unsigned 16))
    (blue
     :allocation :alien  :offset 8
     :accessor color-blue
-    :type unsigned-short))
+    :type (unsigned 16)))
   (:metaclass boxed-class))
 
 
-- 
2.11.0