Mercurial > hg > amuse

view implementations/geerdes/connect.lisp @ 205:5ff310be4942

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in during method, and make it the same as Allen (1983).
author Jamie Forth <j.forth@gold.ac.uk>
date Wed, 26 Jan 2011 10:44:29 +0000
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))