Lines Matching refs:conn
24 (defun exit-nicely (conn)
25 (pq-finish conn)
42 (setq conn (pq-setdb pghost pgport pgoptions pgtty pgdbname))
45 (when (= (pq-status conn) pg-connection-bad)
47 (format t "~A" (pq-error-message conn))
48 (exit-nicely conn))
50 (setq res (pq-exec conn "LISTEN TBL2"))
51 (when (= (pq-status conn) pg-connection-bad)
53 (format t "~A" (pq-error-message conn))
54 (exit-nicely conn))
65 (pq-consume-input conn)
68 (when (setq notifies (pq-notifies conn))
74 (pq-finish conn)