X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=examples%2Fclsql-tutorial.lisp;h=118ea2023ddb2f95756e6998460ef4ffce27e8a7;hp=5d240d58dd645df5d559ee10588d032b5057224d;hb=2b89a1b56dfb8c1cdfaae36b2d4ff7382cff8b40;hpb=598b5c986330456a7aa91dc0decad372f8933ca7

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index 5d240d5..118ea20 100644
--- a/examples/clsql-tutorial.lisp
+++ b/examples/clsql-tutorial.lisp
@@ -34,7 +34,8 @@
     :type (string 100)
     :initarg :email)
    (companyid
-    :type integer)
+    :type integer
+    :initarg :companyid)
    (company
     :accessor employee-company
     :db-kind :join