(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))))