Megatest

Diff
Login

Differences From Artifact [935bf4d2df]:

To Artifact [065c30d7e0]:


575
576
577
578
579
580
581


582
583
584
585
586
587
588
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590







+
+







  (let ((t-sort (assoc (configf:lookup *configdat* "dashboard" "testsort") *tests-sort-type-index*)))
    (if t-sort
	(cadr t-sort)
	3)))

(define (get-curr-sort)
  (vector-ref *tests-sort-options* *tests-sort-reverse*))

;;======================================================================

(debug:setup)

;; (define uidat #f)

(define-inline (dboard:uidat-get-keycol  vec)(vector-ref vec 0))
(define-inline (dboard:uidat-get-lftcol  vec)(vector-ref vec 1))