diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-06-27 12:50:36 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-06-27 13:26:21 -0700 |
commit | 668a1678682851a5a7aaa72cd4e0198f5e1e7058 (patch) | |
tree | 182744ff5e7fb31769b943d81f38cab213105297 /src/util.lisp | |
parent | d1d85342c3da2d8fed3f0efd07b170fc6495a163 (diff) | |
download | consfigurator-668a1678682851a5a7aaa72cd4e0198f5e1e7058.tar.gz |
MULTIPLE-VALUE-MAPCAN: don't return spurious 2nd value & some tests
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
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) |