Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Momchil Ivanov
alexandria
Commits
594bb330
Commit
594bb330
authored
Jul 20, 2007
by
Luís Oliveira
Browse files
New macro: NCONCF
- Added respective documentation to the manual. - New test: NCONCF.1
parent
4d113710
Changes
4
Hide whitespace changes
Inline
Side-by-side
doc/alexandria.texinfo
View file @
594bb330
...
...
@@ -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
...
...
lists.lisp
View file @
594bb330
...
...
@@ -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."
)
...
...
package.lisp
View file @
594bb330
...
...
@@ -37,6 +37,7 @@
;; Lists
#:alist-plist
#:appendf
#:nconcf
#:circular-list
#:circular-list-p
#:circular-tree-p
...
...
tests.lisp
View file @
594bb330
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment