annotate base/database/implementations-functions.lisp @ 253:b5ffec94ae6d
some very sketchy Charm constituent code
| author |
Jamie Forth <j.forth@gold.ac.uk> |
| date |
Thu, 24 Feb 2011 11:23:18 +0000 |
| parents |
6a3adca16910 |
| children |
|
| rev |
line source |
|
j@216
|
1 (cl:in-package #:amuse-database-admin)
|
|
j@216
|
2
|
|
j@216
|
3 (defun register-new-implementation (package-object &optional
|
|
j@216
|
4 (database *amuse-database*))
|
|
j@251
|
5 "FIXME: Needs to check it doesn't already exist!"
|
|
j@216
|
6 #.(clsql:locally-enable-sql-reader-syntax)
|
|
j@216
|
7 (clsql:insert-records :into "amuse_implementations"
|
|
j@216
|
8 :attributes '([implementation-name])
|
|
j@216
|
9 :values (list (package-name package-object))
|
|
j@216
|
10 :database database)
|
|
j@216
|
11 (clsql-mysql::mysql-insert-id
|
|
j@216
|
12 (clsql-mysql::database-mysql-ptr database))
|
|
j@216
|
13 #.(clsql:locally-disable-sql-reader-syntax))
|
|
j@216
|
14
|
|
j@216
|
15 (defun implementation-package (object)
|
|
j@216
|
16 (symbol-package
|
|
j@216
|
17 (class-name
|
|
j@216
|
18 (class-of
|
|
j@216
|
19 object))))
|
|
j@216
|
20
|
|
j@216
|
21 (defun implementation-namestring (object)
|
|
j@216
|
22 (package-name (implementation-package object)))
|
