From 7f26ef678d1ddec6f9de101eef96b79d9de264c9 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 3 Apr 2011 21:45:44 +0200 Subject: [PATCH] Disable open-coding accessors when space constraint is large --- src/cmp/cmppolicy.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmppolicy.lsp b/src/cmp/cmppolicy.lsp index 7c1b1594c..5e771e3f3 100644 --- a/src/cmp/cmppolicy.lsp +++ b/src/cmp/cmppolicy.lsp @@ -276,7 +276,7 @@ (define-policy inline-slot-access :on speed 1 :off debug 2 :off safety 2 "Inline access to structures and sealed classes") -(define-policy inline-accessors :off debug 2 +(define-policy inline-accessors :off debug 2 :off space 2 "Inline access to object slots, including conses and arrays") (define-policy open-code-aref/aset :alias inline-accessors