Megatest

             (debug:print-info 0 "failed to write out packet to " pktsdir ", exn=" exn) ;; don't care if this failed for now but MUST FIX - BUG!!
             (if (not (file-exists? pktsdir))
                 (create-directory pktsdir #t))
             (with-output-to-file
                 (conc pktsdir "/" uuid ".pkt")
               (lambda ()
                 (print pkt)))))))))

;;======================================================================
;; use-lt is use linktree "lt" link to find pkts dir
(define (common:minimal-save-pkt pktalist pktsdir)
  (let-values (((uuid pkt)
		(alist->pkt pktalist common:pkts-spec)))
    (handle-exceptions
     exn
     (debug:print-info 0 "failed to write out packet to " pktsdir ", exn=" exn) ;; don't care if this failed for now but MUST FIX - BUG!!
     (if (not (file-exists? pktsdir))
	 (create-directory pktsdir #t))
     (with-output-to-file
	 (conc pktsdir "/" uuid ".pkt")
       (lambda ()
	 (print pkt))))))

;; common:with-queue-db was here
;; common:load-pkts-to-db was here

(define (common:get-pkt-alists pkts)
  (map (lambda (x)
	 (alist-ref 'apkt x)) ;; 'pkta pulls out the alist from the read pkt
       pkts))