/[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.2 by ram, Sat Nov 9 14:53:38 1991 UTC revision 1.2.1.3 by ram, Fri Jan 3 00:07:22 1992 UTC
# Line 1527  Line 1527 
1527        (when (= code (second extension))        (when (= code (second extension))
1528          (return (first extension))))))          (return (first extension))))))
1529    
 #-(or clx-ansi-common-lisp excl lcl3.0)  
 (define-condition request-error (x-error)  
   ((display :reader request-error-display)  
    (error-key :reader request-error-error-key)  
    (major :reader request-error-major)  
    (minor :reader request-error-minor)  
    (sequence :reader request-error-sequence)  
    (current-sequence :reader request-error-current-sequence)  
    (asynchronous :reader request-error-asynchronous))  
   (:report report-request-error))  
   
1530  (defun report-request-error (condition stream)  (defun report-request-error (condition stream)
1531    (let ((error-key (request-error-error-key condition))    (let ((error-key (request-error-error-key condition))
1532          (asynchronous (request-error-asynchronous condition))          (asynchronous (request-error-asynchronous condition))
# Line 1553  Line 1542 
1542  ;; Since the :report arg is evaluated as (function report-request-error) the  ;; Since the :report arg is evaluated as (function report-request-error) the
1543  ;; define-condition must come after the function definition.  ;; define-condition must come after the function definition.
1544    
1545    #-(or clx-ansi-common-lisp excl lcl3.0)
1546    (define-condition request-error (x-error)
1547      ((display :reader request-error-display)
1548       (error-key :reader request-error-error-key)
1549       (major :reader request-error-major)
1550       (minor :reader request-error-minor)
1551       (sequence :reader request-error-sequence)
1552       (current-sequence :reader request-error-current-sequence)
1553       (asynchronous :reader request-error-asynchronous))
1554      (:report report-request-error))
1555    
1556  #+(or clx-ansi-common-lisp excl lcl3.0)  #+(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)

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

  ViewVC Help
Powered by ViewVC 1.1.5