From cfde0986fd446d9af8546b1c024590dda0e4c8dd Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 25 May 2010 11:31:14 +0200 Subject: [PATCH] DECLAIM did not work because the routine ADD-DEFAULT-OPTIMIZATIONS did not inspect the root environment --- 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 47ad4bea4..32f30e39d 100644 --- a/src/cmp/cmppolicy.lsp +++ b/src/cmp/cmppolicy.lsp @@ -93,7 +93,7 @@ (cmp-env-add-declaration 'optimization (list new) env))))) (defun add-default-optimizations (env) - (if (cmp-env-search-declaration 'optimization) + (if (cmp-env-search-declaration 'optimization env) env (cmp-env-add-declaration 'optimization (list (default-policy)) env)))