[Eclipse-cvs] CVS update: eclipse/lib/netwm-manager.lisp

[Iban Hatchondo]

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)