view implementations/geerdes/connect.lisp @ 109:a9a1c7aa86a9

rename mips-pitch -> diatonic-pitch

darcs-hash:20070726131834-dc3a5-86b4b1aa5dc46bef8f25fa9111e2e08e51046c9b.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)