diff --git a/code/clx-ext.lisp b/code/clx-ext.lisp
index 73f45fa2344ceb3f3f62e7ee37af85bca480bb70..4bc19198624c7473263929c2ab6eb1f284727904 100644
--- a/code/clx-ext.lisp
+++ b/code/clx-ext.lisp
@@ -17,7 +17,7 @@
 
 (export '(open-clx-display with-clx-event-handling enable-clx-event-handling
 	  disable-clx-event-handling object-set-event-handler
-	  default-clx-event-handler *display-event-handlers*
+	  default-clx-event-handler
 	  flush-display-events carefully-add-font-paths
 
 	  serve-key-press serve-key-release serve-button-press
@@ -123,12 +123,6 @@
    there must be a mapping from that file descriptor to its CLX display
    structure when events are handled via SYSTEM:SERVE-EVENT.")
 
-(defvar *display-event-handlers* nil
-  "This is an alist mapping displays to user functions to be called when
-   SYSTEM:SERVE-EVENT notices input on a display connection.  Do not modify
-   this directly; use EXT:ENABLE-CLX-EVENT-HANDLING.  A given display
-   should be represented here only once.")
-
 (defmacro with-clx-event-handling ((display handler) &rest body)
   "Evaluates body in a context where events are handled for the display
    by calling handler on the display.  This destroys any previously established