mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Reimplement WITH-UNIQUE-NAMES using LET* and GENSYM instead of block-gensym

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-05 11:40:22 +02:00
parent 9866109ea6
commit c4cf6ad491
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lsp/cmuutil.lsp
View file

@ -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))