Mercurial > hg > amuse

view implementations/geerdes/connect.lisp @ 204:10d47e78a53d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added support for most significant midi messages (some remain missing, but these do not occur in a 1000-file test sample)
author David Lewis <d.lewis@gold.ac.uk>
date Fri, 17 Sep 2010 10:28:27 +0100
parents 4d06910b6f0f
children
line wrap: on
line source
(in-package #:amuse-geerdes)

;; N.B. This file contains an access password for the database in
;; plain text...

(defun get-amuse-connection ()
  (warn "This function should be removed, use connect-to-database instead.")
  (clsql:connect '("vaughan-williams.doc.gold.ac.uk" "amuse" "LispMidi" "clsql")
		 :if-exists :old :database-type :mysql))