From 411723aa95a2d54151fd04663102a0823dda5c04 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 13 Dec 2025 19:24:56 +0100 Subject: [PATCH] cmp: fix inline expansion for ABS function --- src/cmp/cmpbackend-cxx/cmpc-inl-sysfun.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpbackend-cxx/cmpc-inl-sysfun.lsp b/src/cmp/cmpbackend-cxx/cmpc-inl-sysfun.lsp index 7d9e1bc8d..5f2c9074b 100644 --- a/src/cmp/cmpbackend-cxx/cmpc-inl-sysfun.lsp +++ b/src/cmp/cmpbackend-cxx/cmpc-inl-sysfun.lsp @@ -525,7 +525,7 @@ (def-inline cl:evenp :always (t) :bool "ecl_evenp(#0)") (def-inline cl:evenp :always (fixnum fixnum) :bool "~(#0) & 1") - (def-inline cl:abs :always (t t) t "ecl_abs(#0,#1)") + (def-inline cl:abs :always (t) t "ecl_abs(#0)") (def-inline cl:exp :always (t) t "ecl_exp(#0)") (def-inline cl:expt :always (t t) t "ecl_expt(#0,#1)")