r9200: move large object support to base

[clsql.git] / classic / sql.lisp

diff --git a/classic/sql.lisp b/classic/sql.lisp
index d1d971555854c772d9ab9eec667db43fdf3d0f8b..a98d963888ce997bf1b8ff286dfc9bd39aeca231 100644 (file)
--- a/classic/sql.lisp
+++ b/classic/sql.lisp
@@ -90,24 +90,6 @@
                    (lisp->sql-name (cadr o))))))
 
 
-;;; Marc Battyani : Large objects support
-
-(defun create-large-object (&key (database *default-database*))
-  "Creates a new large object in the database and returns the object identifier"
-  (database-create-large-object database))
-
-(defun write-large-object (object-id data &key (database *default-database*))
-  "Writes data to the large object"
-  (database-write-large-object object-id data database))
-
-(defun read-large-object (object-id &key (database *default-database*))
-  "Reads the large object content"
-  (database-read-large-object object-id database))
-
-(defun delete-large-object (object-id &key (database *default-database*))
-  "Deletes the large object in the database"
-  (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.