scopes/core basics - work in progress

config.lisp

@@ -25,8 +25,8 @@
 
 (defclass root (common) 
   ((env-keys :reader env-keys 
-                  :initform nil 
+             :initform nil 
-                  :allocation :class)
+             :allocation :class)
    (env-prefix :reader env-prefix
                :initarg :env-prefix
                :initform "SCOPES_")

core/core.lisp

@@ -3,15 +3,18 @@
 (defpackage :scopes/core
   (:use :common-lisp)
   (:local-nicknames (:config :scopes/config))
-  (:export #:config 
+  (:export #:config #:service-config
            #:message
            #:context #:name #:send))
 
 (in-package :scopes/core)
 
-(defclass config (config:base) 
+(defclass config (config:root) 
   (services))
 
+(defclass service-config (config:base)
+  (start))
+
 (defclass message ()
   ((domain)
    (action)
@@ -22,7 +25,7 @@
    (data)))
 
 (defclass context () 
-  ((name :initarg :name :reader name)))
+  ((name :reader name :initarg :name)))
 
 (defgeneric send (rcvr msg)
   (:method ((rcvr context) msg)
@@ -30,3 +33,6 @@
     msg))
 
 (defvar *context* nil)
+
+(defun printer (name)
+  (make-instance 'context :name name))

test/etc/config-core.lisp

@@ -2,5 +2,5 @@
 
 (in-package :scopes/test-core)
 
-(setf *config* 
+(setf *config* (make-instance 'core:config))
-  (make-instance 'core:config))
+