r8826: allegro improvement

diff --git a/db-mysql/mysql-usql.lisp b/db-mysql/mysql-usql.lisp
index 8b198e0c6f13cea8b583d011c583caee1028f188..e14d31fab80ef8c75dfcc5fff6f74ab26ed90184 100644 (file)
--- 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 0478c8f3298b23db3216bffb443fbcdc072f2a65..14bb76f8ddd3eb2f09e019d23191dfc7253f756b 100644 (file)
--- 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 51fb6ece70eb9a2d133ad8325f6ff447349adcf1..daacdf1316159f806394d82f3bb6f86fbaa5b7d2 100644 (file)
--- 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