Hack WITH-UNIQUE-NAMES so that it can be used before the sequence functions are installed

2026-01-13 21:02:47 -08:00 · 2010-05-23 15:36:03 +02:00 · 2010-05-23 15:36:03 +02:00 · 1bf4956d5a
commit 1bf4956d5a
parent 3ebe4b146f
1 changed files with 6 additions and 2 deletions
--- 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))