r9555: tests/README: Fix filename [reported by Bill Clementson]

[clsql.git] / examples / clsql-tutorial.lisp

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