starting with scopes-web sub-system

scopes-web.asd

@@ -0,0 +1,22 @@
+(in-package #:asdf-user)
+
+(defsystem :scopes-web
+  :author "cyberconcepts.org Team <team@cyberconcepts.org>"
+  :license "MIT"
+  :version "0.0.1"
+  :homepage "https://www.cyberconcepts.org"
+  :description "Web client and server functionality."
+  :depends-on (:alexandria :com.inuoe.jzon :lack :log4cl :str
+               :scopes-core)
+  :components ((:file "web/server")
+               (:file "util")
+               (:file "testing" :depends-on ("util"))
+               (:file "test/test-web" :depends-on ("testing" "web/server")))
+  :long-description "scopes/web: Web server and web/API/REST client."
+  :in-order-to ((test-op (test-op "scopes-web/test"))))
+
+(defsystem :scopes-web/test
+  :depends-on (:scopes-web)
+  :components ((:file "test/test-web"))
+  :perform (test-op (o c) 
+    (symbol-call :scopes/test-web :run)))

test/test-web.lisp

@@ -0,0 +1,18 @@
+;;;; cl-scopes/test-web - test web (client and server) functionality
+
+(defpackage :scopes/test-web
+  (:use :common-lisp)
+  (:local-nicknames (:config :scopes/config)
+                    (:server :scopes/web/server)
+                    (:t :scopes/testing))
+  (:export #:run)
+  (:import-from :scopes/testing #:deftest #:==))
+
+(in-package :scopes/test-web)
+
+(defvar *config* nil)
+
+(defun run ()
+  (let ((*config* nil)
+        (t:*test-suite* (t:test-suite "config")))))
+ 

web/server.lisp

@@ -0,0 +1,10 @@
+;;;; cl-scopes/web/server - web server functionality
+
+(defpackage :scopes/web/server
+  (:use :common-lisp)
+  (:local-nicknames (:config :scopes/config))
+  (:export #:*server*))
+
+(in-package :scopes/web/server)
+
+(defvar *server* nil)