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

Provide unsafe expansion for CAR/CDR when applied on conses

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-10 15:59:30 +02:00
parent 8525362b33
commit b73468d1ef
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/sysfun.lsp
View file

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