X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=dd15e86b17c383d37fb90354c5f1fe41f234ab11;hb=dd0b244d779d96f80e262e02ce4d2f793888b79f;hp=70cf3b169205e0cfb10e430b348e3f9d2099282e;hpb=967266c94b00f91e5967b8330fe2b9134b0c0447;p=clsql.git diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp index 70cf3b1..dd15e86 100644 --- a/db-postgresql/postgresql-sql.lisp +++ b/db-postgresql/postgresql-sql.lisp @@ -377,8 +377,7 @@ (format nil " AND (NOT (relowner=1))")) (t ""))) -(defmethod database-list-objects-of-type ((database postgresql-database) - type owner) +(defun database-list-objects-of-type (database type owner) (mapcar #'car (database-query (format nil