Changeset 3501

Show
Ignore:
Timestamp:
07/18/08 13:43:24 (4 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3489 r3501  
    6767(defun invoke-store-transient-init-functions () 
    6868  (dolist (function-name *store-transient-init-functions*) 
    69     (funcall function-name))) 
     69    (with-simple-restart (skip-init-function "Skip transient-init-function ~A" 
     70                                             function-name) 
     71      (funcall function-name))))