(print "--- Connecting ---") (print "Full connection") (time (do ((i 0 (add1 i))) ((= i 1000)) (let ((con (connect '((dbname . test))))) (disconnect con)))) (print "Raw connection") (time (do ((i 0 (add1 i))) ((= i 1000)) (let ((con (connect '((dbname . test)) '() '()))) (disconnect con))))