From 570c5f49d555e6aa596455fee6f98cdf7d240044 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 25 Nov 2012 23:57:49 +0100 Subject: [PATCH] Inlining slot accessors used instance-ref instead of safe-instance-ref --- src/cmp/cmpclos.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpclos.lsp b/src/cmp/cmpclos.lsp index 7edcb9758..611def22b 100644 --- a/src/cmp/cmpclos.lsp +++ b/src/cmp/cmpclos.lsp @@ -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)))))