X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classic%2Fsql.lisp;fp=classic%2Fsql.lisp;h=d1d971555854c772d9ab9eec667db43fdf3d0f8b;hb=c4ffac239e4910bff542dadf3212ad95803af64e;hp=c207a8f52221b11de881e0fe543a98e68b025742;hpb=e2c86e8c664d8b3ecfd215843a9a1fbf5fa83693;p=clsql.git

diff --git a/classic/sql.lisp b/classic/sql.lisp
index c207a8f..d1d9715 100644
--- a/classic/sql.lisp
+++ b/classic/sql.lisp
@@ -17,7 +17,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:clsql-sys)
+(in-package #:clsql-classic-sys)
 
 
 ;;; Row processing macro
@@ -109,3 +109,36 @@
   (database-delete-large-object object-id database))
 
 
+;;; These functions are not exported. If you application depends on these
+;;; functions consider using the clsql package using has further support.
+
+(defun list-tables (&key (database *default-database*))
+  "List all tables in *default-database*, or if the :database keyword arg
+is given, the specified database.  If the keyword arg :system-tables
+is true, then it will not filter out non-user tables.  Table names are
+given back as a list of strings."
+  (database-list-tables database))
+
+
+(defun list-attributes (table &key (database *default-database*))
+  "List the attributes of TABLE in *default-database, or if the
+:database keyword is given, the specified database.  Attributes are
+returned as a list of strings."
+  (database-list-attributes table database))
+
+(defun attribute-type (attribute table &key (database *default-database*))
+  "Return the field type of the ATTRIBUTE in TABLE.  The optional
+keyword argument :database specifies the database to query, defaulting
+to *default-database*."
+  (database-attribute-type attribute table database))
+
+(defun create-sequence (name &key (database *default-database*))
+  (database-create-sequence name database))
+
+(defun drop-sequence (name &key (database *default-database*))
+  (database-drop-sequence name database))
+
+(defun sequence-next (name &key (database *default-database*))
+  (database-sequence-next name database))
+
+