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:
Renaud Casenave-Péré 2014-10-22 10:30:28 +09:00
parent 1eea9dbc73
commit cd62df4c63

View file

@ -42,7 +42,7 @@
"Return `x' if it is a list, return '(x) otherwise."
(if (listp x) x (list x)))
(defun group (source n)
(defun group (source &optional (n 2))
"Regroup the list `source' elements by n."
(when (zerop n)
(error "zero length"))