From 1986c37933aa5b879bb3be71dbd173f7658d2be0 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Mon, 10 Jun 2024 08:04:33 +0200
Subject: [PATCH] scopes/core basics - work in progress

---
 config.lisp               |  4 ++--
 core/core.lisp            | 12 +++++++++---
 test/etc/config-core.lisp |  4 ++--
 3 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/config.lisp b/config.lisp
index 8cffeca..93a359c 100644
--- a/config.lisp
+++ b/config.lisp
@@ -25,8 +25,8 @@
 
 (defclass root (common) 
   ((env-keys :reader env-keys 
-                  :initform nil 
-                  :allocation :class)
+             :initform nil 
+             :allocation :class)
    (env-prefix :reader env-prefix
                :initarg :env-prefix
                :initform "SCOPES_")
diff --git a/core/core.lisp b/core/core.lisp
index fb2f2b1..39f96c5 100644
--- a/core/core.lisp
+++ b/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))
diff --git a/test/etc/config-core.lisp b/test/etc/config-core.lisp
index ec3cf8c..5431f51 100644
--- a/test/etc/config-core.lisp
+++ b/test/etc/config-core.lisp
@@ -2,5 +2,5 @@
 
 (in-package :scopes/test-core)
 
-(setf *config* 
-  (make-instance 'core:config))
+(setf *config* (make-instance 'core:config))
+