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

Inlining slot accessors used instance-ref instead of safe-instance-ref

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-25 23:57:49 +01:00
parent 6de58cee21
commit 570c5f49d5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpclos.lsp
View file

@ -128,6 +128,6 @@
collect `(define-compiler-macro ,accessor (&whole whole obj &environment env)
(if (policy-inline-slot-access env)
(if (policy-assume-no-errors env)
`(si::instance-ref ,obj ,,i))
`(clos::safe-instance-ref ,obj ,,i)
`(si::instance-ref ,obj ,,i)
`(clos::safe-instance-ref ,obj ,,i))
whole)))))