@@ -80,11 +80,26 @@
 					((item_path "") : string)
 					((run_duration -1) : number)
 					((final_logf "") : string)
 					((comment "") : string)
 					((process_id -1) : number)
-					((archived #f) : boolean))
+					((archived -1) : number))
+
+(define (db:qry-gen-alist qrystr listvals)
+	(define listqry (string-split qrystr ","))
+	(if (null? listqry)
+	      '()
+	      (let loop ((strhead (car listqry))
+			 (strtail (cdr listqry))
+			 (valhead (car listvals))
+			 (valtail (cdr listvals))
+			 (res '()))
+		(let* ((slot-val-pair (cons (string->symbol strhead) valhead)))
+		  (if (or (null? strtail)
+		  		(null? valtail))
+		      (cons slot-val-pair res);;(print strhead valhead));;(cons (cons (string->symbol strhead) valhead) res))
+		      (loop (car strtail)(cdr strtail)(car valtail)(cdr valtail)(cons slot-val-pair res)))))))
 
 (define (db:test-get-id			typed-rec)   (db:test-rec-id 		typed-rec))
 (define (db:test-get-run_id 	typed-rec)	 (db:test-rec-run_id 	typed-rec))
 (define (db:test-get-testname   typed-rec)   (db:test-rec-testname 	typed-rec))
 (define (db:test-get-state      typed-rec)   (db:test-rec-state 	typed-rec))