Mercurial > hg > amuse

diff implementations/midi-db/db-select-functions.lisp @ 241:2138ea478adb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improve printing of list-collections. Ignore-this: 3073e6c1462cf98ca5752179ab6ecb1d darcs-hash:20100414191443-16a00-e2f9962b0cea652890be18297fdbd4bf7d533c84.gz committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents a5d065905f6d
children
line wrap: on
line diff
--- a/implementations/midi-db/db-select-functions.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/midi-db/db-select-functions.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -74,6 +74,7 @@
   #.(clsql:locally-enable-sql-reader-syntax)
   (let ((header-rows (clsql:select
 		      [collection-id]
+		      [composition-id]
 		      [filename]
 		      [timebase]
 		      [start]
@@ -94,6 +95,7 @@
   #.(clsql:locally-enable-sql-reader-syntax)
   (let ((header-rows (clsql:select
 		      [collection-id]
+		      [composition-id]
 		      [filename]
 		      [timebase]
 		      [start]