From 668a1678682851a5a7aaa72cd4e0198f5e1e7058 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 27 Jun 2022 12:50:36 -0700 Subject: MULTIPLE-VALUE-MAPCAN: don't return spurious 2nd value & some tests Signed-off-by: Sean Whitton --- src/util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/util.lisp') 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) -- cgit v1.2.3