view implementations/geerdes/connect.lisp @ 196:3b36cf79b525

Fix amuse-viewpointing-implementation:make-viewpointable-composition.

Ignore-this: db82c168f04fbcfa001d3db346231bfe

Change to make-standard-viewpointable-composition.

darcs-hash:20090723103119-16a00-40780dad850b7e64fe8acb717192c5959d0ff9df.gz

(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))