|
|
|
@ -192,9 +192,7 @@ Thus function FN should return a collection." |
|
|
|
(nreverse result))) |
|
|
|
(nreverse result))) |
|
|
|
|
|
|
|
|
|
|
|
(defmacro !!replace-where (pred rep list) |
|
|
|
(defmacro !!replace-where (pred rep list) |
|
|
|
"Returns a new list where the elements in LIST that does not match the PRED function |
|
|
|
"Anaphoric form of `!replace-where'." |
|
|
|
are unchanged, and where the elements in LIST that do match the PRED function are mapped |
|
|
|
|
|
|
|
through the REP function." |
|
|
|
|
|
|
|
(let ((l (make-symbol "list")) |
|
|
|
(let ((l (make-symbol "list")) |
|
|
|
(r (make-symbol "result"))) |
|
|
|
(r (make-symbol "result"))) |
|
|
|
`(let ((,l ,list) |
|
|
|
`(let ((,l ,list) |
|
|
|
|