From 1bf4956d5ad0879bf09c50d5f56bb60bfbd974ec Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 23 May 2010 15:36:03 +0200
Subject: [PATCH] Hack WITH-UNIQUE-NAMES so that it can be used before the
 sequence functions are installed

---
 src/lsp/cmuutil.lsp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/lsp/cmuutil.lsp b/src/lsp/cmuutil.lsp
index d3def4ca8..1fd1a50ba 100644
--- a/src/lsp/cmuutil.lsp
+++ b/src/lsp/cmuutil.lsp
@@ -136,9 +136,13 @@
 (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)
-                                    symbol-name
-                                    (concatenate 'string symbol-name "-"))))
+                                     nil
+                                     symbol-name
+                                     (concatenate 'string symbol-name "-"))))
                       `(,symbol (gensym ,stem))))
                   symbols)
      ,@body))