From bb0ca9163fc0df31cbb90bc5ffffb09931269a91 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 3 Dec 2011 21:42:05 +0100 Subject: [PATCH] FIRST, SECOND, THIRD, FOURTH and REST inlined using the new functions in cons.h --- src/cmp/sysfun.lsp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index 70598f3c1..70cea16d5 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -360,15 +360,18 @@ (def-inline nth :unsafe (t t) t "ecl_nth(fix(#0),#1)") (def-inline nth :unsafe (fixnum t) t "ecl_nth(#0,#1)") +(def-inline first :always (t) t "ecl_car(#0)") +(def-inline second :always (t) t "ecl_cadr(#0)") +(def-inline third :always (t) t "ecl_caddr(#0)") +(def-inline fourth :always (t) t "ecl_cadddr(#0)") + (def-inline first :unsafe (cons) t "ECL_CONS_CAR(#0)") (def-inline first :unsafe (t) t "CAR(#0)") - (def-inline second :unsafe (t) t "CADR(#0)") - (def-inline third :unsafe (t) t "CADDR(#0)") - (def-inline fourth :unsafe (t) t "CADDDR(#0)") +(def-inline rest :always (t) t "ecl_cdr(#0)") (def-inline rest :unsafe (cons) t "ECL_CONS_CDR(#0)") (def-inline rest :unsafe (t) t "CDR(#0)")