X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=33aab570302cf7dc098cf48a1bfc2d469841b38d;hb=49db0a8a6a6cde1581d5de0dd3c6822fd505472b;hp=78d70442e4955616bb060a973ce02c3694194085;hpb=1b5725b57eb64c5e3a688f805f46d5f66e11db7b;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 78d7044..33aab57 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -170,7 +170,8 @@ superclass of the newly-defined View Class."
       ,@(if (find :metaclass `,cl-options :key #'car)
 	    `,cl-options
 	    (cons '(:metaclass clsql-sys::standard-db-class) `,cl-options)))
-    (finalize-inheritance (find-class ',class))))
+    (finalize-inheritance (find-class ',class))
+    (find-class ',class)))
 
 (defun keyslots-for-class (class)
   (slot-value class 'key-slots))
@@ -465,6 +466,10 @@ superclass of the newly-defined View Class."
       (format nil "INT(~A)" (car args))
       "INT"))
 
+(deftype bigint () 
+  "An integer larger than a 32-bit integer, this width may vary by SQL implementation."
+  'integer)
+
 (defmethod database-get-type-specifier ((type (eql 'bigint)) args database)
   (declare (ignore args database))
   "BIGINT")