anchor.diff:    (let ((thread (make-thread (lambda ()
                                  (catch 'new-thread
                                    (sleep 60)
  -                                 'not-interrupted)))))
  +                                 'not-interrupted))
  +                             :name "interrupt-thread.throw")))
       (sleep 1)
       (is (threadp
            (interrupt-thread thread (lambda ()
  
positive.code: 
  (test threadp.should-identify-threads
    (is (threadp (current-thread)))
    (is (threadp (make-thread (lambda () t) :name "foo")))
    (is (not (threadp (make-lock)))))
  
  (test thread-name.should-retrieve-thread-name
  
negative.code:                     collect (let ((i i))
                                (make-thread (lambda ()
                                               (funcall #'worker i))
                                             :name (format nil "threads.interaction Proc #~D" i))))))
        (with-lock-held (*lock*)
          (incf *shared*))
        (block test
  