From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 29 Jan 2010 15:00:12 +0000 (-0700)
Subject: Add missing defgeneric declaration
X-Git-Tag: v4.3.3~8^2~1
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=464e630439ff3deb9169452b9ffc22efd9489159

Add missing defgeneric declaration
---

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)))