Here is a a little patch I needed to make UnCommonWeb work with Allegro 8.0. It's an implementation of make-recursive-lock and a small change to with-recursive-lock-held when no timeout is specified.
/Henrik Hjelte
bordeaux-threads-devel@common-lisp.net