Changeset 8484


Ignore:
Timestamp:
Feb 14, 2008, 9:04:38 AM (14 years ago)
Author:
gb
Message:

Define IO-TIMEOUT, READ-TIMEOUT, WRITE-TIMEOUT.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r8130 r8484  
    369369  (:report (lambda (c s)
    370370             (format s "Unexpected end of file ~a" (stream-error-context c)))))
     371
     372(define-condition io-timeout (stream-error)
     373  ())
     374
     375(define-condition input-timeout (io-timeout)
     376  ()
     377  (:report (lambda (c s)
     378             (format s "Input timeout on ~s" (stream-error-stream c)))))
     379(define-condition output-timeout (io-timeout)
     380  ()
     381  (:report (lambda (c s)
     382             (format s "Output timeout on ~s" (stream-error-stream c)))))
     383
     384
    371385(define-condition impossible-number (reader-error)
    372386  ((token :initarg :token :reader impossible-number-token)
Note: See TracChangeset for help on using the changeset viewer.