X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fclsql-tutorial.lisp;h=5d240d58dd645df5d559ee10588d032b5057224d;hb=d0695ffb828519fade3aa5166236812e6144975b;hp=deb453c1ed5d73cffba4f5872ba2e0a53d361e0a;hpb=d24b286628287f7a421384e0f475f167a8f0ab3a;p=clsql.git

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index deb453c..5d240d5 100644
--- a/examples/clsql-tutorial.lisp
+++ b/examples/clsql-tutorial.lisp
@@ -156,8 +156,8 @@
 
 (let ((new-lenin (car
 		  (clsql:select 'employee
-			      :where [= [slot-value 'employee 'emplid] 1])
-		  :flatp t)))
+			      :where [= [slot-value 'employee 'emplid] 1]
+			      :flatp t))))
   (format t "His new email is ~A"
 	  (employee-email new-lenin)))