Projects/worblehat-old
Archived
12
0
Fork 0
Code Issues Pull Requests Activity

metodisering

Browse Source
This commit is contained in:
Tiril Anette Langfeldt Rødland
2009-07-04 13:22:14 +00:00
parent fdc02cdfcc
commit a771b49ca7
1 changed files with 32 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
db.lisp
View File

@@ -4,6 +4,7 @@
(connect-toplevel "worblehat" "horace" "" "localhost")
(defun create-tables ()
(:create-table book
((isbn :type string :primary-key t)
(title :type string)
@@ -18,18 +19,15 @@
(author :type integer :unique t))
(:foreign-key (review) (review id))
(:foreign-key (author) (author id)))
(:create-table review
((id :type integer :primary-key t :references (book :cascade :cascade))
(review :type text)
(grade :type integer)
(author :type string)))
(:create-table author
((id :type integer :primary-key t :references (book :cascade :cascade))
(surname :type string)
(lastname :type string)))
(:create-table copy
((id :type integer :primary-key t)
(shelf :type string)
@@ -37,7 +35,7 @@
(owner :type string)
(condition :type string)
(book :type string))
(:foreign-key (book) (book isbn)))
(:foreign-key (book) (book isbn))))
;(defclass book ()