annotate base/database/implementations-functions.lisp @ 288:d1e5bbcc5ea4
Rationalise base and geerdes classes, constructors and methods.
Ignore-this: d9d4d88566a6d110844d91d4c70513cd
Towards a more standardised interface. Some of these changes (generalised
constructors and reader functions) are necessary for amuse-database-admin
functionality and some other CHARM-like things.
darcs-hash:20090716154406-16a00-8a9b4fb1fc1f5ba75af66a1bbd87e1bb68e02493.gz
| author |
j.forth <j.forth@gold.ac.uk> |
| date |
Thu, 16 Jul 2009 16:44:06 +0100 |
| parents |
00d35eb70ef9 |
| children |
6a3adca16910 |
| rev |
line source |
|
j@287
|
1 (cl:in-package #:amuse-database-admin)
|
|
j@287
|
2
|
|
j@287
|
3 (defun register-new-implementation (package-object &optional
|
|
j@287
|
4 (database *amuse-database*))
|
|
j@287
|
5 #.(clsql:locally-enable-sql-reader-syntax)
|
|
j@287
|
6 (clsql:insert-records :into "amuse_implementations"
|
|
j@287
|
7 :attributes '([implementation-name])
|
|
j@287
|
8 :values (list (package-name package-object))
|
|
j@287
|
9 :database database)
|
|
j@287
|
10 (clsql-mysql::mysql-insert-id
|
|
j@287
|
11 (clsql-mysql::database-mysql-ptr database))
|
|
j@287
|
12 #.(clsql:locally-disable-sql-reader-syntax))
|
|
j@287
|
13
|
|
j@287
|
14 (defun implementation-package (object)
|
|
j@287
|
15 (symbol-package
|
|
j@287
|
16 (class-name
|
|
j@287
|
17 (class-of
|
|
j@287
|
18 object))))
|
|
j@287
|
19
|
|
j@287
|
20 (defun implementation-namestring (object)
|
|
j@287
|
21 (package-name (implementation-package object)))
|
