Function Cancel-Current-Profile

Part of:

package lift
( cancel-current-profile &key < force? > )