From ec21964068e0dadbeba2387014589e6991ba52fd Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Tue, 29 Jul 2025 07:57:51 +0200 Subject: [PATCH] util:curry: fix test --- test/test-core.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test/test-core.lisp b/test/test-core.lisp index 4472f4f..8b7dd3c 100644 --- a/test/test-core.lisp +++ b/test/test-core.lisp @@ -72,7 +72,8 @@ (t:show-result)))) (deftest test-util () - (let ((35+ (util:curry #'+ 35))) + (let* ((25+ (util:curry #'+ 25)) + (35+ (util:curry 25+ 10))) (== (funcall 35+ 7) 42)) (let ((now (get-universal-time))) (== (util:from-unix-time (util:to-unix-time now)) now))