comparison implementations/geerdes/connect.lisp @ 88:8ea75cc8bc2c

Basic geerdes functionality moved to implementations/geerdes from separate package

darcs-hash:20070720161242-f76cc-fd256cbbb81d8c418a6c7c45844264184c5ed932.gz

+(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)