r9804: * doc/ref-ooddl.xml: minor changes to syntax and examples entries

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

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index 7560f9a68d6f470987d4ab91acd66e50214f3ea9..5d240d58dd645df5d559ee10588d032b5057224d 100644 (file)
--- a/examples/clsql-tutorial.lisp
+++ b/examples/clsql-tutorial.lisp
@@ -4,7 +4,8 @@
 
 ;; You must set these variables to appropriate values. 
 (defvar *tutorial-database-type* nil 
-  "Possible values are :postgresql,:postgresql-socket :mysql, :oracle, :odbc or :sqlite")
+  "Possible values are :postgresql,:postgresql-socket :mysql,
+:oracle, :odbc, :aodbc or :sqlite")
 (defvar *tutorial-database-name* "clsqltut"
   "The name of the database we will work in.")
 (defvar *tutorial-database-user* "" 
@@ -90,7 +91,7 @@
                    ,*tutorial-database-user* 
                    ,*tutorial-database-password*)
                  :database-type *tutorial-database-type*))
-  ((:odbc :oracle)
+  ((:odbc :aodbc :oracle)
    (clsql:connect `(,*tutorial-database-name* 
                    ,*tutorial-database-user* 
                    ,*tutorial-database-password*)
@@ -155,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)))