- "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* ""
(defvar *tutorial-database-name* "clsqltut"
"The name of the database we will work in.")
(defvar *tutorial-database-user* ""
,*tutorial-database-user*
,*tutorial-database-password*)
:database-type *tutorial-database-type*))
,*tutorial-database-user*
,*tutorial-database-password*)
:database-type *tutorial-database-type*))
(clsql:connect `(,*tutorial-database-name*
,*tutorial-database-user*
,*tutorial-database-password*)
(clsql:connect `(,*tutorial-database-name*
,*tutorial-database-user*
,*tutorial-database-password*)