[Gd-chatter] r10935 - trunk/libraries/web-framework

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Tue Oct 24 19:47:38 2006
New Revision: 10935

Modified:
   trunk/libraries/web-framework/storage.dylan
Log:
Job: minor
 * an setup-method for each class 
   in storage would be nice


Modified: trunk/libraries/web-framework/storage.dylan
==============================================================================
--- trunk/libraries/web-framework/storage.dylan	(original)
+++ trunk/libraries/web-framework/storage.dylan	Tue Oct 24 19:47:38 2006
@@ -40,6 +40,12 @@
   res;
 end;
 
+define open generic setup (class) => ();
+
+define method setup (class)
+ => ();
+  format-out(">>> no setup for: %=\n", class);
+end;
 
 define macro with-storage
   { with-storage (?:variable = ?type:expression)
@@ -100,6 +106,9 @@
       *version* := *version* + 1;
     end;
   end;
+  for (class in key-sequence(*storage*))
+    setup(class);
+  end for;
 end;
 
 define method restore-newest (directory :: <string>) => ()