define-values/case-lambda implemented.