From 4a7d3686344f8f4b7a0b154040611bd4c8dec8b6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 14 May 1990 14:57:18 +0000
Subject: [PATCH] .../systems-work/nnclx/input.lisp, 12-May-90 16:13:04, Edit
 by Chiles.   Masked out export of type-error.  This is in accordance with the
 expectation   that the system has type-error defined in the "LISP" package.

  There are two definitions for the request-error condition, each exactly the
  same but one is before and one is after the definition for
  REPORT-REQUEST-ERROR.  I masked out the first one and masked in the second.
  This is in accordance with the default sillines the author followed.
---
 clx/input.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/clx/input.lisp b/clx/input.lisp
index b2ed08220..c21df68fd 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
-- 
GitLab