Fix named arguments with optional args.

2026-09-14 13:21:21 +00:00 · 2022-06-18 09:46:28 -05:00
parent 1d905bf07f
commit a1172529bf
4 changed files with 22 additions and 21 deletions
@@ -87,5 +87,11 @@

 (assert (= 15 (named-arguments :bob 3 :sally 5 :joe 7)) "named arguments 1")

+(defn named-opt-arguments
+  [&opt x &named a b c]
+  (+ x a b c))
+
+(assert (= 10 (named-opt-arguments 1 :a 2 :b 3 :c 4)) "named arguments 2")
+
 (end-suite)