manager: be explicit with a type cast of wm-size-hints-x/y

Patch sent by @fmgilham. Fixes #160.
sharplispers · Jan 12, 2020 · 9f7f761 · 9f7f761
1 parent 6172804
commit 9f7f761
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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))