X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=ceb8f98851a1cfccc71bffda8db91ca71774c5cb;hp=057031ce22478582b43dc9ed3d13067641d4caf0;hb=c7cbd01b259a1846a5e172d69c956b836b14febb;hpb=ad3505e2f0d71c858425e4e13b7d9d00e633ba61

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 057031c..ceb8f98 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -308,7 +308,7 @@
    the public api"
   (update-record-from-slots obj slot :database database))
 
-(defun view-classes-and-storable-slots (class)
+(defmethod view-classes-and-storable-slots (class)
   "Get a list of all the tables we need to update and the slots on them
 
    for non normalized classes we return the class and all its storable slots
@@ -346,7 +346,7 @@
   "Makes sure that if a class has unfilled slots that claim to have a default,
    that we retrieve those defaults from the database
 
-   TODO: use update slots-from-record instead to batch this!"
+   TODO: use update-slots-from-record (doesnt exist) instead to batch this!"
   (loop for class-and-slots in (listify classes-and-slots)
         do (loop for slot in (slot-defs class-and-slots)
                  do (when (and (slot-has-default-p slot)