30 lines
545 B
Common Lisp
30 lines
545 B
Common Lisp
;;;; cl-scopes/core - here comes the real action
|
|
|
|
(defpackage :scopes/core
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:config :scopes/config))
|
|
(:export #:config
|
|
#:message
|
|
#:service #:name #:send))
|
|
|
|
(in-package :scopes/core)
|
|
|
|
(defclass config (config:base)
|
|
(services))
|
|
|
|
(defclass message ()
|
|
((domain)
|
|
(action)
|
|
(class)
|
|
(item)
|
|
(sender)
|
|
(timestamp)
|
|
(data)))
|
|
|
|
(defclass service ()
|
|
((name :initarg :name :reader name)))
|
|
|
|
(defgeneric send (rcvr msg)
|
|
(:method ((rcvr service) msg)
|
|
rcvr
|
|
msg))
|