(defun gpr-query-session-wait (session)
"Wait for the current command to complete."
(unless (process-live-p (gpr-query--session-process session))
(defun gpr-query-session-wait (session)
"Wait for the current command to complete."
(unless (process-live-p (gpr-query--session-process session))