view implementations/geerdes/connect.lisp @ 146:a74494a94be9

implementations/midi: implement MONODY for midi files

darcs-hash:20070924160443-c0ce4-302ec7f06335a374b673f70ef2e79d4b2a8b3616.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)