[bknr-cvs] ksprotte changed trunk/projects/bos/m2/m2-store.lisp

[BKNR Commits]

Revision: 3501
Author: ksprotte
URL: http://bknr.net/trac/changeset/3501

added a restart that allows skipping of a transient init-function

U   trunk/projects/bos/m2/m2-store.lisp

Modified: trunk/projects/bos/m2/m2-store.lisp
===================================================================
--- trunk/projects/bos/m2/m2-store.lisp	2008-07-18 11:03:33 UTC (rev 3500)
+++ trunk/projects/bos/m2/m2-store.lisp	2008-07-18 11:43:24 UTC (rev 3501)
@@ -66,4 +66,6 @@
 
 (defun invoke-store-transient-init-functions ()
   (dolist (function-name *store-transient-init-functions*)
-    (funcall function-name)))
\ No newline at end of file
+    (with-simple-restart (skip-init-function "Skip transient-init-function ~A"
+                                             function-name)
+      (funcall function-name))))
\ No newline at end of file