Mercurial > hg > amuse

comparison 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
comparison
equal deleted inserted replaced
240:c454b4fc9aad 241:2138ea478adb
72 72
73 (defun %get-all-collection-composition-headers (collection-identifier) 73 (defun %get-all-collection-composition-headers (collection-identifier)
74 #.(clsql:locally-enable-sql-reader-syntax) 74 #.(clsql:locally-enable-sql-reader-syntax)
75 (let ((header-rows (clsql:select 75 (let ((header-rows (clsql:select
76 [collection-id] 76 [collection-id]
77 [composition-id]
77 [filename] 78 [filename]
78 [timebase] 79 [timebase]
79 [start] 80 [start]
80 [duration] 81 [duration]
81 [owner] 82 [owner]
92 93
93 (defun %get-all-composition-headers () 94 (defun %get-all-composition-headers ()
94 #.(clsql:locally-enable-sql-reader-syntax) 95 #.(clsql:locally-enable-sql-reader-syntax)
95 (let ((header-rows (clsql:select 96 (let ((header-rows (clsql:select
96 [collection-id] 97 [collection-id]
98 [composition-id]
97 [filename] 99 [filename]
98 [timebase] 100 [timebase]
99 [start] 101 [start]
100 [duration] 102 [duration]
101 [owner] 103 [owner]