Closed rudolph-miller closed 9 years ago
@export (defun get-connection () "Return the current established connection handle." (unless (connected-p) (error '<connection-not-established-error>)) (let ((handle (connection-handle *db*))) (if (dbi:ping handle) handle (progn (dbi:disconnect handle) (setf *db* nil) (apply #'connect (connection-connect-args *db*))))))
In the last line of this method, db should be nil.
In the last line of this method, db should be nil.