From 9f7f76188032314f19cc0c461bf674ad22a910be Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sun, 12 Jan 2020 16:44:46 +0100 Subject: [PATCH] manager: be explicit with a type cast of wm-size-hints-x/y Patch sent by @fmgilham. Fixes #160. --- manager.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/manager.lisp b/manager.lisp index 729ba00..8ffc76e 100644 --- a/manager.lisp +++ b/manager.lisp @@ -392,8 +392,8 @@ (when (and (wm-size-hints-x hints) (wm-size-hints-y hints)) (unless (wm-size-hints-user-specified-position-p hints) (setf (ldb (byte 1 2) flags) 1)) - (setf (aref vector 1) (wm-size-hints-x hints) - (aref vector 2) (wm-size-hints-y hints))) + (setf (aref vector 1) (int32->card32 (wm-size-hints-x hints)) + (aref vector 2) (int32->card32 (wm-size-hints-y hints)))) (when (and (wm-size-hints-width hints) (wm-size-hints-height hints)) (unless (wm-size-hints-user-specified-size-p hints) (setf (ldb (byte 1 3) flags) 1))