mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 22:32:05 -08:00
Code Issues Projects Releases Packages Wiki Activity

Compiler macro for REST, removing C-inline forms.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-03 23:38:26 +01:00
parent 7a2678acb2
commit 08caf83740
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpopt-cons.lsp
View file

@ -129,6 +129,8 @@
for i from 0
collect `(define-compiler-macro ,n (x) (list 'nth ,i x))))
(define-compiler-macro rest (x) `(cdr ,x))
;;;
;;; POP
;;;

4
src/cmp/sysfun.lsp
View file

@ -360,10 +360,6 @@
(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 rest :always (t) t "ecl_cdr(#0)")
(def-inline rest :unsafe (cons) t "ECL_CONS_CDR(#0)")
(def-inline rest :unsafe (t) t "_ecl_cdr(#0)")
(def-inline nthcdr :always (t t) t "ecl_nthcdr(fixint(#0),#1)")
(def-inline nthcdr :always (fixnum t) t "ecl_nthcdr(#0,#1)")
(def-inline nthcdr :unsafe (t t) t "ecl_nthcdr(fix(#0),#1)")