;;;; 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:root) 
  (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))