(signal-nodb-error database))
(:documentation "Internal generic implementation of disconnect."))
-(defgeneric database-query (query-expression database types)
- (:method (query-expression (database closed-database) types)
- (declare (ignore query-expression types))
+(defgeneric database-query (query-expression database result-types)
+ (:method (query-expression (database closed-database) result-types)
+ (declare (ignore query-expression result-types))
(signal-closed-database-error database))
- (:method (query-expression (database t) types)
- (declare (ignore query-expression types))
+ (:method (query-expression (database t) result-types)
+ (declare (ignore query-expression result-types))
(signal-nodb-error database))
(:documentation "Internal generic implementation of query."))
;;; Mapping and iteration
(defgeneric database-query-result-set
- (query-expression database &key full-set types)
- (:method (query-expression (database closed-database) &key full-set types)
- (declare (ignore query-expression full-set types))
+ (query-expression database &key full-set result-types)
+ (:method (query-expression (database closed-database) &key full-set result-types)
+ (declare (ignore query-expression full-set result-types))
(signal-closed-database-error database)
(values nil nil nil))
- (:method (query-expression (database t) &key full-set types)
- (declare (ignore query-expression full-set types))
+ (:method (query-expression (database t) &key full-set result-types)
+ (declare (ignore query-expression full-set result-types))
(signal-nodb-error database)
(values nil nil nil))
(:documentation
"Returns t and stores the next row in the result set in list or
returns nil when result-set is finished."))
+(defgeneric database-create (connection-spec type)
+ (:documentation
+ "Creates a database, returns T if successfull or signals an error."))
+
+(defgeneric database-probe (connection-spec type)
+ (:documentation
+ "Probes for the existence of a database, returns T if database found or NIL
+if not found. May signal an error if unable to communicate with database server."))
-;; Interfaces to support UncommonSQL
+(defgeneric database-destory (connection-spec type)
+ (:documentation
+ "Destroys a database, returns T if successfull or signals an error
+if unable to destory."))
(defgeneric database-create-sequence (name database)
(:documentation "Create a sequence in DATABASE."))