Lines Matching refs:conn
7 (defun exit-nicely (conn)
8 (pq-finish conn)
23 (setq conn (pq-setdb pghost pgport pgoptions pgtty pgdbname))
26 (when (= (pq-status conn) pg-connection-bad)
28 (format t "~A" (pq-error-message conn))
29 (exit-nicely conn))
32 (setq res (pq-exec conn "BEGIN"))
36 (exit-nicely conn))
42 (setq res (pq-exec conn "DECLARE mycursor CURSOR FOR select * from pg_database"))
46 (exit-nicely conn))
48 (setq res (pq-exec conn "FETCH ALL in mycursor"))
52 (exit-nicely conn))
72 (setq res (pq-exec conn "CLOSE mycursor"))
76 (setq res (pq-exec conn "COMMIT"))
80 (pq-finish conn)