work in progress: storage/tracking

storage/storage.lisp

@@ -5,7 +5,7 @@
 (defpackage :scopes/storage
   (:use :common-lisp)
   (:export #:query
-		   #:track))
+		   #:track #:time-stamp #:data))
 
 (in-package :scopes/storage)
 

storage/tracking.lisp

@@ -5,6 +5,8 @@
 (in-package :scopes/storage)
 
 (defclass track () (
-  (taskid :initarg :taskid)
+  (head)
-  (username :initarg :username)))
+  (time-stamp :reader time-stamp :accessor time-stamp!)
+  (data :accessor data)
+  (container :initarg :container :initform nil)))
 

test/test-storage.lisp

@@ -12,6 +12,10 @@
 
 (defun run ()
   (let ((tst (sct:test-suite)))
+    (test-track tst)
     (sct:result tst)))
 
-
+(defun test-track (tst)
+  (let ((tr (make-instance 'scs:track)))
+	;(setf (scs:data tr) nil)
+	(sct:assert-eq tst (scs:data tr) nil)))