From a8c1f4f41e755b05ee7898144ff867d81fc83f79 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 17 Jun 1990 11:03:37 +0000
Subject: [PATCH] Allow TRANSLATE to be NULL in DEFINE-KEYSYM.

---
 clx/translate.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clx/translate.lisp b/clx/translate.lisp
index 18434e4ba..4f70cadb2 100644
--- a/clx/translate.lisp
+++ b/clx/translate.lisp
@@ -163,7 +163,7 @@
 	         mask)
 	   (type (or null display) display)
            (type (or null keysym) lowercase)
-	   (type (function (display card16 t) t) translate))
+	   (type (or null (function (display card16 t) t)) translate))
   (flet ((merge-keysym-mappings (new old)
 	   ;; Merge new keysym-mapping with list of old mappings.
 	   ;; Ensure that the mapping with no modifiers or mask comes first.
-- 
GitLab