From 29cd90c448331e602abd0c8d446a839c14ba548a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 30 Jul 2015 08:35:03 +0200
Subject: [PATCH] cmp: make init-function-name consistant with
 compute-init-name
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 src/cmp/cmpname.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmpname.lsp b/src/cmp/cmpname.lsp
index 4382bbcd3..27e9eb2db 100644
--- a/src/cmp/cmpname.lsp
+++ b/src/cmp/cmpname.lsp
@@ -141,11 +141,11 @@ the function name it precedes."
                   #\p)))
          (disambiguation (c)
            (case kind
-             (:object "")
-             (:program "exe_")
+             ((:object :c) "")
              ((:fasl :fas) "fas_")
              ((:library :static-library :lib) "lib_")
              ((:shared-library :dll) "dll_")
+             ((:program) "exe_")
              (otherwise (error "Not a valid argument to INIT-FUNCTION-NAME: kind = ~S"
                                kind)))))
     (setq s (map 'string #'translate-char (string s)))