+cl-sql (1.0.1-1) unstable; urgency=low
+
+ * Add defgeneric for generic functions
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 14 Oct 2002 09:18:39 -0600
+
cl-sql (1.0.0-1) unstable; urgency=low
* Add SBCL support
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: sql.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: sql.lisp,v 1.2 2002/10/14 15:25:15 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;; Basic operations on databases
+(defgeneric query (expression &key database types))
(defmethod query (query-expression &key (database *default-database*)
types)
"Execute the SQL query expression query-expression on the given database.
(database-query query-expression database types))
-
+(defgeneric execute-command (expression &key database))
(defmethod execute-command (sql-expression &key (database *default-database*))
"Execute the SQL command expression sql-expression on the given database.
Returns true on success or nil on failure."
;;;; Programmers: Marc Battyani
;;;; Date Started: Apr 2002
;;;;
-;;;; $Id: transactions.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
+;;;; $Id: transactions.lisp,v 1.2 2002/10/14 15:25:15 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(rollback-hooks :initform () :accessor rollback-hooks)
(status :initform nil :accessor status))) ;can be nil :rolled-back or :commited
+(defgeneric database-start-transaction (database))
(defmethod database-start-transaction ((database closed-database))
(error 'clsql-closed-database-error database))
(status transaction) nil)
(execute-command "BEGIN" :database database))))
+(defgeneric database-end-transaction (database))
(defmethod database-end-transaction ((database closed-database))
(error 'clsql-closed-database-error database))