From d08d3e26076c17f4358d34e3e45e95a1c3f95323 Mon Sep 17 00:00:00 2001
From: Alexander Gavrilov <angavrilov@gmail.com>
Date: Sat, 23 Oct 2010 12:43:47 +0400
Subject: [PATCH] Export read-only accessors for statement output column and
 bind names.

---
 sqlite.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/sqlite.lisp b/sqlite.lisp
index 1a4f755..fcdfbcd 100644
--- a/sqlite.lisp
+++ b/sqlite.lisp
@@ -10,6 +10,8 @@
            :step-statement
            :reset-statement
            :statement-column-value
+           :statement-column-names
+           :statement-bind-parameter-names
            :bind-parameter
            :execute-non-query
            :execute-to-list
@@ -72,9 +74,9 @@
    (handle :accessor handle)
    (sql :reader sql :initarg :sql)
    (columns-count :accessor resultset-columns-count)
-   (columns-names :accessor resultset-columns-names)
+   (columns-names :accessor resultset-columns-names :reader statement-column-names)
    (parameters-count :accessor parameters-count)
-   (parameters-names :accessor parameters-names))
+   (parameters-names :accessor parameters-names :reader statement-bind-parameter-names))
   (:documentation "Class that represents the prepared statement."))
 
 (defmethod initialize-instance :after ((object sqlite-statement) &key &allow-other-keys)
-- 
2.11.4.GIT