X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=72cbc4fffd3c7df025f84aa311d0511a7e9628bb;hp=72a3388db78d93823cff55b1bb65376f21392e92;hb=464e630439ff3deb9169452b9ffc22efd9489159;hpb=9b8e5bdaa160e6f916ac287614b1e06aa150699a

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 72a3388..72cbc4f 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -112,6 +112,7 @@
                                           base-table))
                                  (class-name class)))))
 
+(defgeneric ordered-class-direct-slots (class))
 (defmethod ordered-class-direct-slots ((self standard-db-class))
   (let ((direct-slot-names
          (mapcar #'slot-definition-name (class-direct-slots self)))