initial set-up for storage / tracking stuff

scopes.asd

@@ -8,9 +8,11 @@
   :description ""
   :depends-on (:str)
   :components ((:file "forge/forge")
+			   (:file "storage/storage")
+			   (:file "storage/tracking" :depends-on ("storage/storage"))
 			   (:file "testing")
-			   (:file "test/test-forge" :depends-on ("testing" "forge/forge")))
-
+			   (:file "test/test-forge" :depends-on ("testing" "forge/forge"))
+			   (:file "test/test-storage" :depends-on ("testing" "storage/storage" "storage/tracking")))
   :long-description "scopes: generic data processing facilities")
   ;;#.(uiop:read-file-string
   ;;   (uiop:subpathname *load-pathname* "README.md")))

storage/storage.lisp

@@ -0,0 +1,11 @@
+;;; cl-scopes/storage
+
+;;;; Common layer for SQL storage functionality.
+
+(defpackage :scopes/storage
+  (:use :common-lisp)
+  (:export #:query
+		   #:track))
+
+(in-package :scopes/storage)
+

storage/tracking.lisp

@@ -1,10 +1,8 @@
-;;; cl-scopes/forge - may the forge be with you!
+;;; cl-scopes/storage/tracking.lisp
 
-;;;; A Forth-like interpreter implemented in Common Lisp.
+;;;; A simple generic (SQL-based) storage for tracks, messages, and other stuff.
 
-
-(defun hello ()
-  (format t "Hello Common Lisp - changed!"))
+(in-package :scopes/storage)
 
 (defclass track () (
   (taskid :initarg :taskid)

test/test-storage.lisp

@@ -0,0 +1,17 @@
+;;; cl-scopes/test/test-storage
+
+;;;; testing facility for scopes/storage
+
+(defpackage :scopes/test-storage
+  (:use :common-lisp)
+  (:local-nicknames (:scs :scopes/storage) 
+					(:sct :scopes/testing))
+  (:export #:run))
+
+(in-package :scopes/test-storage)
+
+(defun run ()
+  (let ((tst (sct:test-suite)))
+    (sct:result tst)))
+
+