Mercurial > hg > amuse

changeset 51:894fb5156603

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Prefix database table names with 'mtp-' darcs-hash:20070620141551-c0ce4-23eb826c6323d1fdac3a8cc9b2b9406c2c39e1e9.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Wed, 20 Jun 2007 15:15:51 +0100
parents 49aae39b96dc
children e0acd4c37121
files implementations/mtp/methods.lisp
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp	Wed Jun 20 12:04:03 2007 +0100
+++ b/implementations/mtp/methods.lisp	Wed Jun 20 15:15:51 2007 +0100
@@ -10,12 +10,12 @@
          (where-clause [and [= [dataset-id] dataset-id]
                             [= [composition-id] composition-id]])
          (description 
-          (car (clsql:select [description] :from [composition] 
+          (car (clsql:select [description] :from [mtp-composition] 
                              :where where-clause :flatp t :field-names nil)))
          (event-count 
           (1+ 
            (car 
-            (clsql:select [max [event-id]] :from [event] 
+            (clsql:select [max [event-id]] :from [mtp-event] 
                           :where where-clause :flatp t :field-names nil))))
          (events nil))
     (dotimes (event-id event-count) 
@@ -53,7 +53,7 @@
                           :event-id event-id)))
     (dolist (a attributes mtp-event)
       (let ((value 
-             (clsql:select (cadr a) :from [event]
+             (clsql:select (cadr a) :from [mtp-event]
                            :where [and [= [dataset-id] dataset-id]
                                        [= [composition-id] composition-id]
                                        [= [event-id] event-id]]
@@ -86,7 +86,7 @@
 
 #.(clsql:locally-enable-sql-reader-syntax)
 (defun timebase-for-event (event)
-  (car (clsql:select [timebase] :from [dataset]
+  (car (clsql:select [timebase] :from [mtp-dataset]
                      :where [= [dataset-id] 
                                (dataset-id event)]
                      :flatp t