From b73468d1efde63ac33eadc0d1530908ecd172ff2 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 10 May 2010 15:59:30 +0200 Subject: [PATCH] Provide unsafe expansion for CAR/CDR when applied on conses --- src/cmp/sysfun.lsp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index 7ea98f157..2e7801b6b 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -270,10 +270,12 @@ ;; file list.d -(def-inline car :always (cons) t "CAR(#0)") +(def-inline car :always (list) t "CAR(#0)") +(def-inline car :unsafe (cons) t "ECL_CONS_CAR(#0)") (def-inline car :unsafe (t) t "CAR(#0)") -(def-inline cdr :always (cons) t "CDR(#0)") +(def-inline cdr :always (list) t "CDR(#0)") +(def-inline cdr :unsafe (cons) t "ECL_CONS_CDR(#0)") (def-inline cdr :unsafe (t) t "CDR(#0)") (def-inline caar :always (cons) t "CAAR(#0)")