Mercurial > hg > amuse

comparison implementations/geerdes/connect.lisp @ 279:c591a5034da6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New base module for general database functions Ignore-this: 403f22ca6285cba4a23eeddb1d0a806f Currently just provides a slightly more secure way of connecting to a database. darcs-hash:20090519135617-16a00-ce026a38abfb53e5728cd0cbb6c976e403691dde.gz
author j.forth <j.forth@gold.ac.uk>
date Tue, 19 May 2009 14:56:17 +0100
parents 3b588c566734
children
comparison
equal deleted inserted replaced
278:8ec5cc5466fb 279:c591a5034da6
2 2
3 ;; N.B. This file contains an access password for the database in 3 ;; N.B. This file contains an access password for the database in
4 ;; plain text... 4 ;; plain text...
5 5
6 (defun get-amuse-connection () 6 (defun get-amuse-connection ()
7 (warn "This function should be removed, use connect-to-database instead.")
7 (clsql:connect '("vaughan-williams.doc.gold.ac.uk" "amuse" "LispMidi" "clsql") 8 (clsql:connect '("vaughan-williams.doc.gold.ac.uk" "amuse" "LispMidi" "clsql")
8 :if-exists :old :database-type :mysql)) 9 :if-exists :old :database-type :mysql))
9 10
10 11