|
Revision 2190, 0.5 kB
(checked in by hhubner, 1 year ago)
|
add more thirdparty libs
|
| Line | |
|---|
| 1 |
;;;; Anaphora: The Anaphoric Macro Package from Hell |
|---|
| 2 |
;;;; |
|---|
| 3 |
;;;; This been placed in Public Domain by the author, |
|---|
| 4 |
;;;; Nikodemus Siivola <nikodemus@random-state.net> |
|---|
| 5 |
|
|---|
| 6 |
(in-package :anaphora) |
|---|
| 7 |
|
|---|
| 8 |
(defmacro with-unique-names ((&rest bindings) &body body) |
|---|
| 9 |
`(let ,(mapcar #'(lambda (binding) |
|---|
| 10 |
(destructuring-bind (var prefix) |
|---|
| 11 |
(if (consp binding) binding (list binding binding)) |
|---|
| 12 |
`(,var (gensym ,(string prefix))))) |
|---|
| 13 |
bindings) |
|---|
| 14 |
,@body)) |
|---|
| 15 |
|
|---|
| 16 |
(defmacro ignore-first (first expr) |
|---|
| 17 |
(declare (ignore first)) |
|---|
| 18 |
expr) |
|---|
