Update of /project/eclipse/cvsroot/eclipse/lib In directory common-lisp.net:/tmp/cvs-serv17612

Modified Files: netwm-manager.lisp Log Message: fix wrong type declaration done in precedent commit.

Date: Thu Nov 20 18:48:55 2003 Author: ihatchondo

Index: eclipse/lib/netwm-manager.lisp diff -u eclipse/lib/netwm-manager.lisp:1.7 eclipse/lib/netwm-manager.lisp:1.8 --- eclipse/lib/netwm-manager.lisp:1.7 Thu Nov 20 18:39:50 2003 +++ eclipse/lib/netwm-manager.lisp Thu Nov 20 18:48:54 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*- -;;; $Id: netwm-manager.lisp,v 1.7 2003/11/20 23:39:50 ihatchondo Exp $ +;;; $Id: netwm-manager.lisp,v 1.8 2003/11/20 23:48:54 ihatchondo Exp $ ;;; ;;; This is the CLX support for the managing with gnome. ;;; @@ -374,7 +374,7 @@ (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 @@ 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)