showError (NotDefined names) = "((make-error :not-defined) " ++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") names) ++ "])"
showError (NotDefined names) = "((make-error :not-defined) " ++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") names) ++ "])"
showError (NotDefined names) = "((make-error :not-defined) " ++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") names) ++ "])"