From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 4 Jun 2004 20:08:05 +0000 (+0000)
Subject: r9550:
X-Git-Tag: v3.8.6~336
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=e12e49ba39110f4a34def97d27bc8432f6de8665

r9550:
---

diff --git a/examples/clsql-tutorial.lisp b/examples/clsql-tutorial.lisp
index 7560f9a..0971d72 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* "" 
@@ -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*)