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

Avoid recursive invocation of C1EXPR by allowing the C1 processors to act like macros, returning new forms to be processed. Remove also the CATCH for compiler errors, since we now rely on conditions for signal handling.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-27 12:36:52 +01:00
parent 24c0b37d9a
commit c2e2171dc0
15 changed files with 128 additions and 129 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmpstructures.lsp
View file

@ -51,13 +51,13 @@
(setf args (first args))
(cond
((eq structure-type 'list)
(c1expr `(elt ,args ,slot-index)))
`(elt ,args ,slot-index))
((eq structure-type 'vector)
(c1expr `(svref ,args ,slot-index)))
`(svref ,args ,slot-index))
((consp structure-type)
(c1expr `(aref (the ,structure-type ,args) ,slot-index)))
`(aref (the ,structure-type ,args) ,slot-index))
(t
(c1structure-ref `(,args ',structure-type ,slot-index))))))))
`(,args ',structure-type ,slot-index)))))))
(defun c1structure-ref (args)
(check-args-number 'sys:structure-ref args 3)