l/src/call-id.lisp


1
2
3
4
5
6
7
8
9
10
11
12

(in-package :extreload)

(defclass call-id ()
  ((id
     :initform 0
     :documentation "Current call ID.")))

(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)))