From d7aff31c8ae4e2222536717f1cbf01b289766e94 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 27 Feb 2010 20:01:05 +0100 Subject: [PATCH] Use ecl_unlikely() in the expansion of RPLACA/D --- src/cmp/cmpfun.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpfun.lsp b/src/cmp/cmpfun.lsp index 428f538eb..abda46783 100644 --- a/src/cmp/cmpfun.lsp +++ b/src/cmp/cmpfun.lsp @@ -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)