Commit d460e51a authored by Iban Hatchondo's avatar Iban Hatchondo
Browse files

fix wrong type declaration done in precedent commit.

parent 9fb4b67b
;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*-
;;; $Id: netwm-manager.lisp,v 1.6 2003/11/13 00:39:14 ihatchondo Exp $
;;; $Id: netwm-manager.lisp,v 1.7 2003/11/20 23:39:50 ihatchondo Exp $
;;;
;;; This is the CLX support for the managing with gnome.
;;;
......@@ -374,7 +374,7 @@ In order to use it, you should first call intern-atoms to be sure all
(defun net-wm-strut (window)
"return the strut property as a multiple value (left right top bottom)."
(let ((v (get-property window :_NET_WM_STRUT :result-type 'vector)))
(declare (type (or null (simple-array integer (4)) v)))
(declare (type (or null (simple-array integer (4))) v))
(when v (values (aref v 1) (aref v 2) (aref v 3) (aref v 4)))))
(defsetf net-wm-strut (window) (strut)
......@@ -391,7 +391,7 @@ In order to use it, you should first call intern-atoms to be sure all
left_start_y, left_end_y, right_start_y, right_end_y,
top_start_x, top_end_x, bottom_start_x, bottom_end_x"
(let ((v (get-property window :_NET_WM_STRUT_PARTIAL :result-type 'vector)))
(declare (type (or null (simple-array integer (12)) v)))
(declare (type (or null (simple-array integer (12))) v))
(when v
(values (aref v 1) (aref v 2) (aref v 3) (aref v 4)
(aref v 5) (aref v 6) (aref v 7) (aref v 8)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment