bugfix (cl-compatibility) for (COND (1)) ==> 1