Skip to content
Snippets Groups Projects
Commit 4a7d3686 authored by ram's avatar ram
Browse files

.../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.
parent f2867918
No related branches found
No related tags found
No related merge requests found
;;; -*- 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 ;;; This file contains definitions for the DISPLAY object for Common-Lisp X windows version 11
...@@ -73,7 +73,7 @@ ...@@ -73,7 +73,7 @@
value-error value-error
window-error window-error
implementation-error implementation-error
#-ansi-common-lisp type-error #-(or ansi-common-lisp CMU) type-error
closed-display closed-display
lookup-error lookup-error
connection-failure connection-failure
...@@ -1593,7 +1593,7 @@ ...@@ -1593,7 +1593,7 @@
(when (= code (second extension)) (when (= code (second extension))
(return (first 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) (define-condition request-error (x-error)
(display (display
error-key error-key
...@@ -1618,7 +1618,7 @@ ...@@ -1618,7 +1618,7 @@
;; Since the :report arg is evaluated as (function report-request-error) the ;; Since the :report arg is evaluated as (function report-request-error) the
;; define-condition must come after the function definition. ;; 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) (define-condition request-error (x-error)
(display (display
error-key error-key
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment