j@216: (cl:in-package #:amuse-database-admin)
j@216: 
j@216: (defun register-new-implementation (package-object &optional
j@216: 				    (database *amuse-database*))
j@216:   #.(clsql:locally-enable-sql-reader-syntax)
j@216:   (clsql:insert-records :into "amuse_implementations"
j@216: 			:attributes '([implementation-name])
j@216: 			:values (list (package-name package-object))
j@216: 			:database database)
j@216:   (clsql-mysql::mysql-insert-id
j@216:    (clsql-mysql::database-mysql-ptr database))
j@216:   #.(clsql:locally-disable-sql-reader-syntax))
j@216: 
j@216: (defun implementation-package (object)
j@216:   (symbol-package
j@216:    (class-name
j@216:     (class-of
j@216:      object))))
j@216: 
j@216: (defun implementation-namestring (object)
j@216:   (package-name (implementation-package object)))