Mercurial > hg > amuse

comparison base/database/implementations-setup.lisp @ 251:6a3adca16910

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactor dataset stuff out of amuse-database-admin, and add midifile-dataset.
author Jamie Forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents 385935631532
children
comparison
equal deleted inserted replaced
250:b3260d1d2419 251:6a3adca16910
8 (defun drop-implementations-table (&optional 8 (defun drop-implementations-table (&optional
9 (database *amuse-database*)) 9 (database *amuse-database*))
10 (%drop-implementations-table database) 10 (%drop-implementations-table database)
11 (%drop-implementation-stored-routines database)) 11 (%drop-implementation-stored-routines database))
12 12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 13
14 ;;;=====================================================================
14 ;;; Helper functions 15 ;;; Helper functions
16 ;;;=====================================================================
15 17
16 (defun %create-implementations-table (database) 18 (defun %create-implementations-table (database)
17 #.(clsql:locally-enable-sql-reader-syntax) 19 #.(clsql:locally-enable-sql-reader-syntax)
18 (clsql:create-table "amuse_implementations" 20 (clsql:create-table "amuse_implementations"
19 '(([|implementation-id|] clsql:smallint :unsigned 21 '(([|implementation-id|] clsql:smallint :unsigned