Commit 594bb330 authored by Luis Oliveira's avatar Luis Oliveira

New macro: NCONCF

- Added respective documentation to the manual.
- New test: NCONCF.1
parent 4d113710
......@@ -126,6 +126,7 @@ terms and conditions:
@include include/type-alexandria-proper-list.texinfo
@include include/type-alexandria-circular-list.texinfo
@include include/macro-alexandria-appendf.texinfo
@include include/macro-alexandria-nconcf.texinfo
@include include/fun-alexandria-circular-list.texinfo
@include include/fun-alexandria-circular-list-p.texinfo
@include include/fun-alexandria-circular-tree-p.texinfo
......
......@@ -21,6 +21,10 @@ property list PLIST in the same order."
"Modify-macro for APPEND. Appends LISTS to the place designated by the first
argument.")
(define-modify-macro nconcf (&rest lists) nconc
"Modify-macro for NCONC. Concatenates LISTS to place designated by the first
argument.")
(define-modify-macro unionf (list) union
"Modify-macro for UNION. Saves the union of LIST and the contents of the
place designated by the first argument to the designated place.")
......
......@@ -37,6 +37,7 @@
;; Lists
#:alist-plist
#:appendf
#:nconcf
#:circular-list
#:circular-list-p
#:circular-tree-p
......
......@@ -380,6 +380,13 @@
(list list (eq list orig)))
((1 2 3 4 5 6 7 8) nil))
(deftest nconcf.1
(let ((list1 (list 1 2 3))
(list2 (list 4 5 6)))
(nconcf list1 list2 (list 7 8 9))
list1)
(1 2 3 4 5 6 7 8 9))
(deftest circular-list.1
(let ((circle (circular-list 1 2 3)))
(list (first circle)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment