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

Macros for unsafe car/cdr access

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-14 16:30:18 +02:00
parent ad4d31cde9
commit fe38ab3039
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -36,6 +36,13 @@
(expand-simple-optimizer (rest whole) args inline-form env)
whole)))))
(defmacro cons-car (x)
`(ffi:c-inline (,x) (:object) :object "ECL_CONS_CAR(#0)"
:one-liner t :side-effects nil))
(defmacro cons-cdr (x)
`(ffi:c-inline (,x) (:object) :object "ECL_CONS_CDR(#0)"
:one-liner t :side-effects nil))
;;;
;;; RPLACA / RPLACD
;;;