changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/lib/net/condition.lisp

changeset 586: 7ce855f76e1d
child: 4d8451fe5423
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 11 Aug 2024 01:53:06 -0400
permissions: -rw-r--r--
description: net/fetch upgrades, fixes, net/err -> net/condition
586
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; net/condition.lisp --- Network Conditions
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2 
 
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 ;; Generic network condition handling for Lisp.
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4 
 
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5 
 ;;; Code:
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6 
 (in-package :net/core)
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7 
 
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8 
 (define-condition net-condition () ())
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9 
 (define-condition codec-condition (net-condition) ())
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10 
 (define-condition protocol-condition (net-condition) ())
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
11 
 
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
12 
 (define-condition net-error (net-condition std-error) ())
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
13 
 
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
14 
 (define-condition codec-error (codec-condition net-error) ())
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
15 
 (define-condition protocol-error (protocol-condition net-error) ())
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
16 
 
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
17 
 ;; sb-bsd-sockets:socket-error
7ce855f76e1d net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
18 
 ;; sb-thread:thread-error