Don't put initializers for the optional arg in the

define-compiler-macro.  This causes the same initializer object to be
used everywhere.  Instead, if no optional arg is given, call the
initializer in the expansion.

This fixes some issues with Allegro, and probably all other Lisps that
use don't have complex double-double-float objects.