Mercurial > hg > amuse
diff implementations/geerdes/connect.lisp @ 88:8ea75cc8bc2c
Basic geerdes functionality moved to implementations/geerdes from separate package
darcs-hash:20070720161242-f76cc-fd256cbbb81d8c418a6c7c45844264184c5ed932.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Fri, 20 Jul 2007 17:12:42 +0100 |
| parents | |
| children | c8db9d1bd191 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/implementations/geerdes/connect.lisp Fri Jul 20 17:12:42 2007 +0100 @@ -0,0 +1,11 @@ +(in-package #:amuse-geerdes) + +;; N.B. This file contains an access password for the database in +;; plain text... + +(defun get-amuse-connection () + (clsql:connect '("vaughan-williams.doc.gold.ac.uk" "amuse" "LispMidi" "clsql") + :if-exists :old :database-type :mysql)) + +;; might as well connect while I'm at it +(get-amuse-connection)