From bc0da33dab4d74b15fc05a770032743b8577f3fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 19 May 2015 09:49:09 +0200 Subject: [PATCH] shiftf: Fix order of lexical blocks to avoid unbound variable error. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit `multiple-value-prog1` was called outside `let` bindings, thereof it lead to returning unbound access-forms. Signed-off-by: Daniel Kochmański --- src/lsp/setf.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/setf.lsp b/src/lsp/setf.lsp index 676601040..ac0ba016e 100644 --- a/src/lsp/setf.lsp +++ b/src/lsp/setf.lsp @@ -476,8 +476,8 @@ Returns the original value of the leftmost PLACE." (with-setf-expansions (pairs stores store-forms access-forms) ((butlast args) env) (with-expansion-setter (thunk store-forms) - `(multiple-value-prog1 ,(car access-forms) - (let* ,pairs + `(let* ,pairs + (multiple-value-prog1 ,(car access-forms) ,@(thunk stores (append (cdr access-forms) (last args))))))))