From 464e630439ff3deb9169452b9ffc22efd9489159 Mon Sep 17 00:00:00 2001
From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Fri, 29 Jan 2010 08:00:12 -0700
Subject: [PATCH] Add missing defgeneric declaration

---
 sql/metaclasses.lisp | 1 +
 1 file changed, 1 insertion(+)

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