+ * (def-view-class tab () ((a :type integer :db-kind :key) (b :type string)))
+ #<clsql-sys::db-standard-class tab>
+ * (defvar obj (let ((*db-auto-sync* t))
+ (make-instance 'tab :a 5 :b "the string")))
+ * (start-sql-recording :type :both)
+ * (delete-instance-records obj)
+
+