From 522cee82103645d02226344730cf8417652101be Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Fri, 5 Feb 1999 21:10:24 +0000
Subject: [PATCH] The click-count slot in button callback structures was typed
 as fixnum, but this loses when compiled safe because the slot is valid only
 in certain cases and the received value may be random junk. It now typed as
 (unsigned-byte 32).

---
 motif/lisp/callbacks.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/motif/lisp/callbacks.lisp b/motif/lisp/callbacks.lisp
index abd64767c..9484c0f2b 100644
--- a/motif/lisp/callbacks.lisp
+++ b/motif/lisp/callbacks.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.3 1994/10/31 04:54:48 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.4 1999/02/05 21:10:24 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -213,7 +213,7 @@
 	    (:include any-callback)
 	    (:print-function print-callback)
 	    (:constructor make-button-callback (reason event click-count)))
-  (click-count 0 :type fixnum))
+  (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here.
 
 (defstruct (drawing-area-callback
 	    (:include any-callback)
@@ -227,7 +227,7 @@
 	    (:constructor make-drawn-button-callback
 			  (reason event window click-count)))
   window
-  (click-count 0 :type fixnum))
+  (click-count 0 :type (unsigned-byte 32))) ; Not always valid data here.
 
 ;;; RowColumnCallbackStruct is weird and probably not necessary
 
-- 
GitLab