diff options
| author | Teddy Wing | 2021-02-27 19:12:07 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-27 19:12:07 +0100 |
| commit | 4792097ca56f278344f18a0a78aaca1278fd146e (patch) | |
| tree | 8c48974c3a68b955df597a7a5eaa8b7a3afdefa6 /src/call-id.lisp | |
| parent | 5e0f58d30c08bd294539ede86757970d46cab4f6 (diff) | |
| download | extreload-4792097ca56f278344f18a0a78aaca1278fd146e.tar.bz2 | |
Move everything from `l/` into the project root
This is the final project. Now that we got rid of the web extension and
native host code, we can move the Lisp code to the root.
Diffstat (limited to 'src/call-id.lisp')
| -rw-r--r-- | src/call-id.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/call-id.lisp b/src/call-id.lisp new file mode 100644 index 0000000..a21e6ab --- /dev/null +++ b/src/call-id.lisp @@ -0,0 +1,15 @@ +(in-package :extreload) + +(defclass call-id () + ((id + :initform 0 + :reader id + :documentation "Current call ID.")) + + (:documentation "An incrementing identifier.")) + +(defgeneric next-call-id (call-id) + (:documentation "Increment the call ID and return the result.")) + +(defmethod next-call-id ((call-id call-id)) + (incf (slot-value call-id 'id))) |