From 39a180f3d7bfb25e211203fd660b400396d0e60e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 1 Oct 1994 00:04:45 +0000 Subject: [PATCH] Fix to toolkit-write-value to allow it to write either signed or unsigned integers. --- motif/lisp/conversion.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/motif/lisp/conversion.lisp b/motif/lisp/conversion.lisp index f2a5e22bf..2706b2d23 100644 --- a/motif/lisp/conversion.lisp +++ b/motif/lisp/conversion.lisp @@ -66,7 +66,7 @@ (xlib:cursor (message-write-xid message (xlib:cursor-id value) :cursor)) ((unsigned-byte 24) (message-put-dblword message (combine-type-and-data :short value))) - ((signed-byte 32) + ((or (signed-byte 32) (unsigned-byte 32)) (message-put-dblword message (combine-type-and-data :int 0)) (message-put-dblword message value)) ((member t nil) -- GitLab