projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11018: 12 Aug 2006 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
examples
/
clsql-tutorial.lisp
diff --git
a/examples/clsql-tutorial.lisp
b/examples/clsql-tutorial.lisp
index 5d240d58dd645df5d559ee10588d032b5057224d..265ae6d2e34edb1930ac537b1a4c77d29f2b3aca 100644
(file)
--- a/
examples/clsql-tutorial.lisp
+++ b/
examples/clsql-tutorial.lisp
@@
-4,7
+4,7
@@
;; You must set these variables to appropriate values.
(defvar *tutorial-database-type* nil
;; You must set these variables to appropriate values.
(defvar *tutorial-database-type* nil
- "Possible values are :postgresql
,:postgresql-socket
:mysql,
+ "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.")
:oracle, :odbc, :aodbc or :sqlite")
(defvar *tutorial-database-name* "clsqltut"
"The name of the database we will work in.")
@@
-34,7
+34,8
@@
:type (string 100)
:initarg :email)
(companyid
:type (string 100)
:initarg :email)
(companyid
- :type integer)
+ :type integer
+ :initarg :companyid)
(company
:accessor employee-company
:db-kind :join
(company
:accessor employee-company
:db-kind :join
@@
-85,7
+86,7
@@
;; Connect to the database (see the CLSQL documentation for vendor
;; specific connection specs).
(case *tutorial-database-type*
;; 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*
(clsql:connect `(,*tutorial-database-server*
,*tutorial-database-name*
,*tutorial-database-user*