Disable collection of profiling info until a portable library can be used

provide the expected value (and, obviously, its value)

Attila Lendvai authored Oct 01, 2006 and Attila Lendvai committed Oct 01, 2006

(is (equal (decode-universal-time (universal-time (encode-local-time 1 2 3 4 5 6 2008)))
           (values 2 3 4 5 6 2008 3 * *)))
the expressions' result is converted to list with mutliple-value-list and then the predicate
is applied to the two lists. *'s are replaced/setf'd to nil.

If the body of the check didn't signal error, PROCESS-FAILURE would. So I
simply moved PROCESS-FAILURE out of the HANDLER-BIND form.

In the list-match-case form we were using _? (which only matches the
symbol _?) instead of ?_ (which matches anything), so the default
clause was never being used.

SIGNALS now can accept the same parameters as before plus the new
reason and reason-control parameters

Initial import of FiveAM code. This is exactly equal to to bese-2004@common-lisp.net/FiveAM--dev--1.2--patch-20