anchor.diff:        (assert-false (chain-completed-p area (list task-1 task-2 task-3) :text "dog")))))
   
   (define-test perform
  -
     (with-temporary-directory (dir)
       (let ((*area* (prepare-directory dir))
   	  (*chain* nil)
  
positive.code: 	(assert-equal "hello-world" (task-value 'execution-task-2))
  	(assert-equal "laughing-at-nothing" (task-value 'execution-task-3))))))
  
  
  (define-task task-complete-p-t1 ()
    ())
  
negative.code: (in-package "CHAINS.TESTS")
  
  ;;;; Helpers
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defun ensure-temporary-directory ()
  