X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=dd15e86b17c383d37fb90354c5f1fe41f234ab11;hp=70cf3b169205e0cfb10e430b348e3f9d2099282e;hb=dd0b244d779d96f80e262e02ce4d2f793888b79f;hpb=cff8a2497b3f111a43d819476b55bfad2b447532 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