Changeset 8484

Timestamp:

Feb 14, 2008, 1:04:38 AM (17 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/level-1/l1-error-system.lisp (modified) (1 diff)

trunk/source/level-1/l1-error-system.lisp

@@ -369 +369 @@
   (:report (lambda (c s)
              (format s "Unexpected end of file ~a" (stream-error-context c)))))
+
+(define-condition io-timeout (stream-error)
+  ())
+
+(define-condition input-timeout (io-timeout)
+  ()
+  (:report (lambda (c s)
+             (format s "Input timeout on ~s" (stream-error-stream c)))))
+(define-condition output-timeout (io-timeout)
+  ()
+  (:report (lambda (c s)
+             (format s "Output timeout on ~s" (stream-error-stream c)))))
+
+
 (define-condition impossible-number (reader-error)
   ((token :initarg :token :reader impossible-number-token)