From d19660c562b09658e499085c4a4dcb20c9bdca88 Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Sun, 9 Feb 2003 17:23:46 +0000
Subject: [PATCH] Fix type declaration, noted by Dan Barlow on the new
 portable-clx-devel mailing list.

---
 clx/input.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/clx/input.lisp b/clx/input.lisp
index 2bfb0276a..2b74b5d12 100644
--- a/clx/input.lisp
+++ b/clx/input.lisp
@@ -26,7 +26,7 @@
 ;;; 12/10/87	LGO	Created
 #+cmu
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/input.lisp,v 1.9 2002/04/10 17:18:53 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/input.lisp,v 1.10 2003/02/09 17:23:46 emarsden Exp $")
 
 (in-package :xlib)
 
@@ -1196,7 +1196,7 @@
 
 (defun make-event-handlers (&key (type 'array) default)
   (declare (type t type)			;Sequence type specifier
-	   (type function default)
+	   (type (or null function) default)
 	   (clx-values sequence))			;Default handler for initial content
   ;; Makes a handler sequence suitable for process-event
   (make-sequence type *max-events* :initial-element default))
-- 
GitLab