storage/msglog: get-track working; next step: consequent use of keywords for keys and head values

storage/storage.lisp

@@ -63,15 +63,11 @@
 
 (defun query (st spec)
   (multiple-value-bind (sql args) (sxql:yield spec)
+    ;(log:info "sql: ~s, args: ~s" sql args)
     (let* ((qp (dbi:prepare (conn st) sql))
            (qx (dbi:execute qp args)))
       (dbi:fetch-all qx))))
 
-(defun xdo-sql (st spec)
-  (multiple-value-bind (sql args) (sxql:yield spec)
-    ;(print sql)
-    (dbi:do-sql (conn st) sql args)))
-
 (defun do-sql (st spec)
   (multiple-value-bind (sql args) (sxql:yield spec)
     (let* ((conn (conn st))

storage/tracking.lisp

@@ -72,6 +72,7 @@
     (setup-track tr row)))
 
 (defun setup-track (tr row)
+  ;(log:info "tr: ~s, row: ~s" tr row)
   (let ((hv (mapcar #'(lambda (x) (getf row x)) (shape:head-fields tr))))
     (setf (shape:head tr) hv)
     (setf (trackid tr) (getf row :trackid))

test/test-storage.lisp

@@ -62,10 +62,13 @@
 (deftest test-msglog (ctx)
   (let ((st (storage:storage ctx))
         (data (make-hash-table))
-        cont msg pm)
+        cont msg pm pm2)
     (setf cont (msglog:make-container st))
     (storage:drop-table st :messages)
     (tracking:create-table cont)
     (setf msg (message:create '(:test :data :field :info) :data '(:info "test data")))
     (setf pm (msglog:save msg cont))
+    (== (tracking:trackid pm) 1)
+    (setf pm2 (tracking:get-track cont 1))
+    (log:info "pm2: ~s" pm2)
     ))