/[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.2.1.1 by ram, Fri Nov 8 16:07:40 1991 UTC revision 1.2.1.2 by ram, Sat Nov 9 14:53:38 1991 UTC
# Line 1527  Line 1527 
1527        (when (= code (second extension))        (when (= code (second extension))
1528          (return (first extension))))))          (return (first extension))))))
1529    
1530  #-(or clx-ansi-common-lisp excl lcl3.0 CMU)  #-(or clx-ansi-common-lisp excl lcl3.0)
1531  (define-condition request-error (x-error)  (define-condition request-error (x-error)
1532    ((display :reader request-error-display)    ((display :reader request-error-display)
1533     (error-key :reader request-error-error-key)     (error-key :reader request-error-error-key)
# Line 1553  Line 1553 
1553  ;; Since the :report arg is evaluated as (function report-request-error) the  ;; Since the :report arg is evaluated as (function report-request-error) the
1554  ;; define-condition must come after the function definition.  ;; define-condition must come after the function definition.
1555    
1556  #+(or clx-ansi-common-lisp excl lcl3.0 CMU)  #+(or clx-ansi-common-lisp excl lcl3.0)
1557  (define-condition request-error (x-error)  (define-condition request-error (x-error)
1558    ((display :reader request-error-display :initarg :display)    ((display :reader request-error-display :initarg :display)
1559     (error-key :reader request-error-error-key :initarg :error-key)     (error-key :reader request-error-error-key :initarg :error-key)
# Line 1625  Line 1625 
1625  ;;-----------------------------------------------------------------------------  ;;-----------------------------------------------------------------------------
1626  ;; Internal error conditions signaled by CLX  ;; Internal error conditions signaled by CLX
1627    
1628  (define-condition x-type-error (type-error x-error)  (define-condition x-type-error (type-error #-CMU x-error)
1629    ((type-string :reader x-type-error-type-string :initarg :type-string))    ((type-string :reader x-type-error-type-string :initarg :type-string))
1630    (:report    (:report
1631      (lambda (condition stream)      (lambda (condition stream)

Legend:
Removed from v.1.2.1.1  
changed lines
  Added in v.1.2.1.2

  ViewVC Help
Powered by ViewVC 1.1.5