21 lines
424 B
Common Lisp
21 lines
424 B
Common Lisp
;;;; cl-scopes/substrate - communication substrate.
|
|
|
|
(defpackage :scopes/substrate
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:async :scopes/util/async)
|
|
(:config :scopes/config)
|
|
(:util :scopes/util))
|
|
(:export #:*root*
|
|
#:add-action #:config))
|
|
|
|
(in-package :scopes/substrate)
|
|
|
|
(defvar *root* nil)
|
|
|
|
(defclass config (config:base)
|
|
()
|
|
)
|
|
|
|
(defclass dispatcher ()
|
|
()
|
|
)
|