From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 4 Jun 2004 21:41:19 +0000 (+0000)
Subject: r9554: add missing flatp
X-Git-Tag: v3.8.6~333
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=d24b286628287f7a421384e0f475f167a8f0ab3a

r9554: add missing flatp
---

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index 0971d72..deb453c 100644
--- a/examples/clsql-tutorial.lisp
+++ b/examples/clsql-tutorial.lisp
@@ -156,7 +156,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)))