diff --git a/motif/lisp/conversion.lisp b/motif/lisp/conversion.lisp index f2a5e22bf67f2a7bf0dc42e71fb503d33890b7b0..2706b2d23a7e39a6f02139c3dc376b4ba276ee14 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)