mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 03:51:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: fix inline expansion for ABS function

Browse source
This commit is contained in:
Marius Gerbershagen 2025-12-13 19:24:56 +01:00
parent cae32c08bc
commit 411723aa95
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpbackend-cxx/cmpc-inl-sysfun.lsp
View file

@ -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)")