d@88: (in-package #:amuse-geerdes)
d@88: 
d@88: ;; N.B. This file contains an access password for the database in
d@88: ;; plain text...
d@88: 
d@88: (defun get-amuse-connection ()
j@191:   (warn "This function should be removed, use connect-to-database instead.")
d@88:   (clsql:connect '("vaughan-williams.doc.gold.ac.uk" "amuse" "LispMidi" "clsql")
d@88: 		 :if-exists :old :database-type :mysql))
d@88: 
d@152: