X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fclsql-tutorial.lisp;h=265ae6d2e34edb1930ac537b1a4c77d29f2b3aca;hb=e4778554b1dc8a130f9b189d760730ce5d76ced4;hp=7560f9a68d6f470987d4ab91acd66e50214f3ea9;hpb=02ec8bd400759fddb0deedcc21616b693274756b;p=clsql.git

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index 7560f9a..265ae6d 100644
--- 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* "" 
@@ -33,7 +34,8 @@
     :type (string 100)
     :initarg :email)
    (companyid
-    :type integer)
+    :type integer
+    :initarg :companyid)
    (company
     :accessor employee-company
     :db-kind :join
@@ -84,13 +86,13 @@
 ;; Connect to the database (see the CLSQL documentation for vendor
 ;; specific connection specs).
 (case *tutorial-database-type*
-  ((:mysql :postgresql)
+  ((:mysql :postgresql :postgresql-socket)
    (clsql:connect `(,*tutorial-database-server* 
 		    ,*tutorial-database-name*
 		    ,*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 +157,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)))