X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=c3c81bb0aeffa3be4398a3b4fbb4c5eb36c9df22;hb=adc55338c3bf10e87af43cf78c2c29b4e896fae5;hp=73c67cb732300a26ae526628be0be36e8be37b76;hpb=fef88dce7304920c0a87ac28ad81126802ccbfcf;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 73c67cb..c3c81bb 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -457,7 +457,10 @@ implementations."
 (defmethod initialize-instance :after
     ((obj view-class-direct-slot-definition)
      &key &allow-other-keys)
-  (setf (view-class-slot-column obj) (compute-column-name obj)))
+  (setf (view-class-slot-column obj) (compute-column-name obj)
+        (view-class-slot-autoincrement-sequence obj)
+        (dequote
+         (view-class-slot-autoincrement-sequence obj))))
 
 (defmethod compute-effective-slot-definition ((class standard-db-class)
                                               #+kmr-normal-cesd slot-name