(defmethod db-cursor-close ((cursor cursor)) (%db-cursor-close cursor) (setf (slot-value cursor 'cursor-handle) nil))