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