Megatest

 srfi-1
 ;; posix
 srfi-69
 ;; hostinfo
 ;; dot-locking
 z3
 (prefix sqlite3 sqlite3:))
 (prefix sqlite3 sqlite3:)

chicken.condition
chicken.file
chicken.process
chicken.process-context.posix
chicken.string

 )

(declare (unit portlogger))
(declare (uses db))

;; lsof -i

(define (portlogger:open-db fname)