Mercurial > hg > amuse
comparison base/database/database-connect.lisp @ 251:6a3adca16910
Refactor dataset stuff out of amuse-database-admin, and add midifile-dataset.
| author | Jamie Forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | e1842efb1dd4 |
| children |
comparison
equal
deleted
inserted
replaced
| 250:b3260d1d2419 | 251:6a3adca16910 |
|---|---|
| 72 (if username username "<username>") | 72 (if username username "<username>") |
| 73 port)) | 73 port)) |
| 74 (warn "You now need to manually edit ~A." | 74 (warn "You now need to manually edit ~A." |
| 75 (namestring (%make-db-option-file-pathname)))) | 75 (namestring (%make-db-option-file-pathname)))) |
| 76 | 76 |
| 77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 77 |
| 78 ;;;===================================================================== | |
| 78 ;;; Helper functions | 79 ;;; Helper functions |
| 80 ;;;===================================================================== | |
| 79 | 81 |
| 80 (defun %get-database-connection (connection-spec) | 82 (defun %get-database-connection (connection-spec) |
| 81 (clsql:connect connection-spec | 83 (clsql:connect connection-spec |
| 82 :if-exists :old | 84 :if-exists :old |
| 83 :database-type :mysql)) | 85 :database-type :mysql)) |