view implementations/geerdes/connect.lisp @ 116:b4f4df48337d

Addition of viewpointable classes and methods

These may be in the wrong place, but are designed to facilitate pluggability of viewpoints for well-behaved implementations

darcs-hash:20070726160347-f76cc-6e6da5d488b3f252d0575e42daa566130481f955.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)