/[cmucl]/src/clx/input.lisp
ViewVC logotype

Diff of /src/clx/input.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ram, Mon May 14 14:48:45 1990 UTC revision 1.1.1.1 by ram, Mon May 14 14:57:18 1990 UTC
# Line 1  Line 1 
1  ;;; -*- Mode: LISP; Syntax: Common-lisp; Package: XLIB; Base: 10; Lowercase: Yes -*-  ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
2    
3  ;;; 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
4    
# Line 73  Line 73 
73            value-error            value-error
74            window-error            window-error
75            implementation-error            implementation-error
76            #-ansi-common-lisp type-error            #-(or ansi-common-lisp CMU) type-error
77            closed-display            closed-display
78            lookup-error            lookup-error
79            connection-failure            connection-failure
# Line 1593  Line 1593 
1593        (when (= code (second extension))        (when (= code (second extension))
1594          (return (first extension))))))          (return (first extension))))))
1595    
1596  #-(or ansi-common-lisp excl lcl3.0)  #-(or ansi-common-lisp excl lcl3.0 CMU)
1597  (define-condition request-error (x-error)  (define-condition request-error (x-error)
1598    (display    (display
1599     error-key     error-key
# Line 1618  Line 1618 
1618    
1619  ;; Since the :report arg is evaluated as (function report-request-error) the  ;; Since the :report arg is evaluated as (function report-request-error) the
1620  ;; define-condition must come after the function definition.  ;; define-condition must come after the function definition.
1621  #+(or ansi-common-lisp excl lcl3.0)  #+(or ansi-common-lisp excl lcl3.0 CMU)
1622  (define-condition request-error (x-error)  (define-condition request-error (x-error)
1623    (display    (display
1624     error-key     error-key

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5