diff --git a/clx/input.lisp b/clx/input.lisp
index b2ed082209f4d18e969935d1e8d4b2cfa66a20e9..c21df68fdde12f1bcd9cfa3f79484a3a81947302 100644
--- a/clx/input.lisp
+++ b/clx/input.lisp
@@ -1,4 +1,4 @@
-;;; -*- Mode: LISP; Syntax: Common-lisp; Package: XLIB; Base: 10; Lowercase: Yes -*-
+;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
 
 ;;; This file contains definitions for the DISPLAY object for Common-Lisp X windows version 11
 
@@ -73,7 +73,7 @@
 	  value-error
 	  window-error
 	  implementation-error
-	  #-ansi-common-lisp type-error
+	  #-(or ansi-common-lisp CMU) type-error
 	  closed-display
 	  lookup-error
 	  connection-failure
@@ -1593,7 +1593,7 @@
       (when (= code (second extension))
 	(return (first extension))))))
 
-#-(or ansi-common-lisp excl lcl3.0)
+#-(or ansi-common-lisp excl lcl3.0 CMU)
 (define-condition request-error (x-error)
   (display
    error-key
@@ -1618,7 +1618,7 @@
 
 ;; Since the :report arg is evaluated as (function report-request-error) the
 ;; define-condition must come after the function definition.
-#+(or ansi-common-lisp excl lcl3.0)
+#+(or ansi-common-lisp excl lcl3.0 CMU)
 (define-condition request-error (x-error)
   (display
    error-key