mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Use ecl_unlikely() in the expansion of RPLACA/D

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-27 20:01:05 +01:00
parent a3ad77d5a8
commit d7aff31c8a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpfun.lsp
View file

@ -98,7 +98,7 @@
(x (first args))
(y (second args)))
(when (safe-compile)
(wt-nl "if(ATOM(" x "))"
(wt-nl "if (ecl_unlikely(ATOM(" x ")))"
"FEtype_error_cons(" x ");"))
(wt-nl "ECL_CONS_CAR(" x ") = " y ";")
(unwind-exit x)
@ -115,7 +115,7 @@
(x (first args))
(y (second args)))
(when (safe-compile)
(wt-nl "if(ATOM(" x "))"
(wt-nl "if (ecl_unlikely(ATOM(" x ")))"
"FEtype_error_cons(" x ");"))
(wt-nl "ECL_CONS_CDR(" x ") = " y ";")
(unwind-exit x)