mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

with-unique-names: simplify extension and fix typo

Browse source 
Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>
This commit is contained in:
Daniel Kochmański 2015-07-01 16:10:22 +02:00
parent 12e402b2f0
commit dc6aa0bce0
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/cmuutil.lsp
View file

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