Added generic function compute-default-initargs.