From dc6aa0bce0dbb29d920b9a2909e4d9ef5a8d6744 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <dkochmanski@turtle-solutions.eu>
Date: Wed, 1 Jul 2015 16:10:22 +0200
Subject: [PATCH] with-unique-names: simplify extension and fix typo
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>
---
 src/lsp/cmuutil.lsp | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/lsp/cmuutil.lsp b/src/lsp/cmuutil.lsp
index 6fdadc5cf..33a9836c5 100644
--- a/src/lsp/cmuutil.lsp
+++ b/src/lsp/cmuutil.lsp
@@ -136,13 +136,7 @@
 (defmacro with-unique-names (symbols &body body)
   `(let* ,(mapcar (lambda (symbol)
                     (let* ((symbol-name (symbol-name symbol))
-                           #+ecl-min
-                           (stem symbol-name)
-                           #-ecl-min
-                           (stem (if (every #'alpha-char-p symbol-name)
-                                     nil
-                                     symbol-name
-                                     (concatenate 'string symbol-name "-"))))
+                           (stem symbol-name))
                       `(,symbol (gensym ,stem))))
                   symbols)
      ,@body))