Returns a body of code with each specified name bound to a similar name.
lispworks
with-unique-names (&rest names ) &body body => result
names
The names to be rebound in body .
body
The body of code within which names are rebound.
result
The result of evaluating body .
Returns the body with each name bound to a symbol of a similar name (compare gensym ).
gensym
After defining
(defmacro lister (p q)
(with-unique-names (x y)
`(let ((,x (x-function))
(,y (y-function)))
(list ,p ,q ,x ,y))))
the form (lister i j) macroexpands to
(lister i j)
(LET* ((#:X-88 (X-FUNCTION))
(#:Y-89 (Y-FUNCTION)))
(LIST i j #:X-88 #:Y-89))
rebinding