From 4792097ca56f278344f18a0a78aaca1278fd146e Mon Sep 17 00:00:00 2001 From: Teddy Wing Date: Sat, 27 Feb 2021 19:12:07 +0100 Subject: 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. --- l/src/call-id.lisp | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 l/src/call-id.lisp (limited to 'l/src/call-id.lisp') diff --git a/l/src/call-id.lisp b/l/src/call-id.lisp deleted file mode 100644 index a21e6ab..0000000 --- a/l/src/call-id.lisp +++ /dev/null @@ -1,15 +0,0 @@ -(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))) -- cgit v1.2.3