X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fclsql-tutorial.lisp;h=118ea2023ddb2f95756e6998460ef4ffce27e8a7;hb=d9f41af62750c622945bb17b622a39689ee5b840;hp=0971d7201a89d0f310d244f23ee0b792caf014a7;hpb=e12e49ba39110f4a34def97d27bc8432f6de8665;p=clsql.git

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index 0971d72..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
@@ -156,7 +157,8 @@
 
 (let ((new-lenin (car
 		  (clsql:select 'employee
-			      :where [= [slot-value 'employee 'emplid] 1]))))
+			      :where [= [slot-value 'employee 'emplid] 1]
+			      :flatp t))))
   (format t "His new email is ~A"
 	  (employee-email new-lenin)))