From c4cf6ad491ef7f2b1771d8b4596a5cef73db618c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 5 Sep 2009 11:40:22 +0200 Subject: [PATCH] Reimplement WITH-UNIQUE-NAMES using LET* and GENSYM instead of block-gensym --- src/lsp/cmuutil.lsp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/lsp/cmuutil.lsp b/src/lsp/cmuutil.lsp index 0a8ad8eea..d3def4ca8 100644 --- a/src/lsp/cmuutil.lsp +++ b/src/lsp/cmuutil.lsp @@ -134,11 +134,11 @@ ;;; Incidentally, this is essentially the same operator which ;;; _On Lisp_ calls WITH-GENSYMS. (defmacro with-unique-names (symbols &body body) - `(let ,(mapcar (lambda (symbol) - (let* ((symbol-name (symbol-name symbol)) - (stem (if (every #'alpha-char-p symbol-name) + `(let* ,(mapcar (lambda (symbol) + (let* ((symbol-name (symbol-name symbol)) + (stem (if (every #'alpha-char-p symbol-name) symbol-name (concatenate 'string symbol-name "-")))) - `(,symbol (block-gensym ,stem)))) - symbols) + `(,symbol (gensym ,stem)))) + symbols) ,@body))