r9952: * examples/clsql-tutorial.lisp: added missing initarg for the COMPANYID

slot of the employee View Class definition [reported by Franz Deuzer].

diff --git a/ChangeLog b/ChangeLog
index c91e6883be1e8ee2eadc09ad48a96c5d04b579df..a29a3bf17318cac5cf08d59099970525fde05706 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+02 Sep 2004 Marcus Pearce <m.t.pearce@city.ac.uk> 
+       * examples/clsql-tutorial.lisp: added missing initarg for the COMPANYID
+       slot of the employee View Class definition [reported by Franz Deuzer]. 
+
 01 Sep 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.0.1 Release
        * tests/test-init.lisp: Add second join class to employee-address

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index 5d240d58dd645df5d559ee10588d032b5057224d..118ea2023ddb2f95756e6998460ef4ffce27e8a7 100644 (file)
--- 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