X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classic%2Fsql.lisp;fp=classic%2Fsql.lisp;h=a98d963888ce997bf1b8ff286dfc9bd39aeca231;hb=913477a11d2258f8fe87ff5b390c8904d17d66fe;hp=d1d971555854c772d9ab9eec667db43fdf3d0f8b;hpb=9bbed78051e80e6ab76ae47834136035602bbbf1;p=clsql.git diff --git a/classic/sql.lisp b/classic/sql.lisp index d1d9715..a98d963 100644 --- 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.