From d24b286628287f7a421384e0f475f167a8f0ab3a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 4 Jun 2004 21:41:19 +0000 Subject: [PATCH] r9554: add missing flatp --- examples/clsql-tutorial.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.34.1