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