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

FIRST, SECOND, THIRD, FOURTH and REST inlined using the new functions in cons.h

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-03 21:42:05 +01:00
parent b857c4836d
commit bb0ca9163f
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmp/sysfun.lsp
View file

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