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