make utils:group second argument optional
This function is often used to group together 2 symbols so make it the default behavior
This commit is contained in:
parent
1eea9dbc73
commit
cd62df4c63
1 changed files with 1 additions and 1 deletions
|
|
@ -42,7 +42,7 @@
|
||||||
"Return `x' if it is a list, return '(x) otherwise."
|
"Return `x' if it is a list, return '(x) otherwise."
|
||||||
(if (listp x) x (list x)))
|
(if (listp x) x (list x)))
|
||||||
|
|
||||||
(defun group (source n)
|
(defun group (source &optional (n 2))
|
||||||
"Regroup the list `source' elements by n."
|
"Regroup the list `source' elements by n."
|
||||||
(when (zerop n)
|
(when (zerop n)
|
||||||
(error "zero length"))
|
(error "zero length"))
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue