diff options
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/util.lisp b/src/util.lisp index cd986d9..3bec7ba 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -21,7 +21,7 @@ (defun multiple-value-mapcan (function &rest lists) "Variant of MAPCAN which preserves multiple return values." (loop with lists = (copy-list lists) - with results = (make-array '(2) :initial-element nil :adjustable t) + with results = (make-array '(1) :initial-element nil :adjustable t) for new = (multiple-value-list (apply function (maplist (lambda (lists) |