From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 6 Apr 2004 06:46:01 +0000 (+0000)
Subject: r8826: allegro improvement
X-Git-Tag: v3.8.6~741
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=b69ed367889def50db1931ab33fa9bd9a35986ab

r8826: allegro improvement
---

diff --git a/db-mysql/mysql-usql.lisp b/db-mysql/mysql-usql.lisp
index 8b198e0..e14d31f 100644
--- a/db-mysql/mysql-usql.lisp
+++ b/db-mysql/mysql-usql.lisp
@@ -31,7 +31,7 @@
 ;; MySQL 4.1 does not support views 
 (defmethod database-list-views ((database mysql-database)
                                 &key (owner nil))
-  (declare (ignore owner database))
+  (declare (ignore owner))
   nil)
 
 (defmethod database-list-indexes ((database mysql-database)
@@ -119,7 +119,7 @@
   (mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database)))
 
 (defmethod database-sequence-last (sequence-name (database mysql-database))
-  (declare (ignore sequence-name database)))
+  (declare (ignore sequence-name)))
 
 ;; Misc USQL functions
 
diff --git a/usql/objects.lisp b/usql/objects.lisp
index 0478c8f..14bb76f 100644
--- a/usql/objects.lisp
+++ b/usql/objects.lisp
@@ -215,8 +215,10 @@ database view is queried, and the slots in the resulting View Class
 instances are filled with attribute values from the database. If
 SUPERS is nil then STANDARD-DB-OBJECT automatically becomes the
 superclass of the newly-defined View Class."
-  `(defclass ,class ,supers ,slots ,@options
-    (:metaclass standard-db-class)))
+  `(progn
+     (defclass ,class ,supers ,slots ,@options
+	       (:metaclass standard-db-class))
+     (finalize-inheritance (find-class ',class))))
 
 (defun keyslots-for-class (class)
   (slot-value class 'key-slots))
diff --git a/usql/package.lisp b/usql/package.lisp
index 51fb6ec..daacdf1 100644
--- a/usql/package.lisp
+++ b/usql/package.lisp
@@ -172,52 +172,63 @@
        ;; utils
        :sql-escape
 
-	 ;; database.lisp -- Connection
-	 #:*default-database-type*	          ; clsql-base xx
-	 #:*default-database*	          ; classes    xx
-	 #:connect			          ; database   xx
-	 #:*connect-if-exists*	          ; database   xx
-	 #:connected-databases	          ; database   xx
-	 #:database		          ; database   xx
-	 #:database-name                     ; database   xx
-	 #:disconnect		          ; database   xx
-	 #:reconnect                         ; database
-	 #:find-database                     ; database   xx
-	 #:status                            ; database   xx
-	 #:with-database
-	 #:with-default-database
-
-	 ;; basic-sql.lisp
-	 #:query
-	 #:execute-command
-	 #:write-large-object
-	 #:read-large-object
-	 #:delete-large-object
-
-	 ;; Transactions
-	 #:with-transaction
-	 #:commit-transaction
-	 #:rollback-transaction
-	 #:add-transaction-commit-hook
-	 #:add-transaction-rollback-hook
-	 #:commit                            ; transact   xx
-	 #:rollback			  ; transact   xx
-	 #:with-transaction		  ; transact   xx		.
-	 #:start-transaction                 ; transact   xx
-	 #:in-transaction-p                  ; transact   xx
-	 #:database-start-transaction
-	 #:database-abort-transaction
-	 #:database-commit-transaction
-	 #:transaction-level
-	 #:transaction
-	 ))
-  (:export
-   ;; "Private" exports for use by interface packages
-   :check-connection-spec
-   :database-initialize-database-type
-   :database-type-load-foreign
-   :database-name-from-spec
-   :database-connect
+       ;; database.lisp -- Connection
+       #:*default-database-type*	          ; clsql-base xx
+       #:*default-database*	          ; classes    xx
+       #:connect			          ; database   xx
+       #:*connect-if-exists*	          ; database   xx
+       #:connected-databases	          ; database   xx
+       #:database		          ; database   xx
+       #:database-name                     ; database   xx
+       #:disconnect		          ; database   xx
+       #:reconnect                         ; database
+       #:find-database                     ; database   xx
+       #:status                            ; database   xx
+       #:with-database
+       #:with-default-database
+       
+       ;; basic-sql.lisp
+       #:query
+       #:execute-command
+       #:write-large-object
+       #:read-large-object
+       #:delete-large-object
+       
+       ;; recording.lisp -- SQL I/O Recording 
+       #:record-sql-comand
+       #:record-sql-result
+       #:add-sql-stream                 ; recording  xx
+       #:delete-sql-stream	          ; recording  xx
+       #:list-sql-streams	          ; recording  xx
+       #:sql-recording-p	          ; recording  xx
+       #:sql-stream			  ; recording  xx
+       #:start-sql-recording		  ; recording  xx
+       #:stop-sql-recording		  ; recording  xx
+       
+       ;; Transactions
+       #:with-transaction
+       #:commit-transaction
+       #:rollback-transaction
+       #:add-transaction-commit-hook
+       #:add-transaction-rollback-hook
+       #:commit                            ; transact   xx
+       #:rollback			  ; transact   xx
+       #:with-transaction		  ; transact   xx		.
+       #:start-transaction                 ; transact   xx
+       #:in-transaction-p                  ; transact   xx
+       #:database-start-transaction
+       #:database-abort-transaction
+       #:database-commit-transaction
+       #:transaction-level
+       #:transaction
+       ))
+   (:export
+    ;; "Private" exports for use by interface packages
+    :check-connection-spec
+    :database-initialize-database-type
+    :database-type-load-foreign
+    :database-name-from-spec
+    :database-connect
    :database-query
    :database-execute-command
    :database-create-sequence
@@ -238,6 +249,7 @@
    :database-sequence-exists-p
    :database-list-attributes
    :database-attribute-type
+
    .
    ;; Shared exports for re-export by USQL. 
    ;; I = Implemented, D = Documented