From aaa0b43e99cc26dd40e395ae75dfa5ceec74cf47 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 26 Jan 2016 15:22:45 +0100 Subject: [PATCH] defsetf: remove local function SETF-METHOD-WRAPPER It was called only once and only unnecessarily fragmented the code. Incorporated in DO-DEFSETF. --- src/lsp/setf.lsp | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/src/lsp/setf.lsp b/src/lsp/setf.lsp index 076917daf..33a434590 100644 --- a/src/lsp/setf.lsp +++ b/src/lsp/setf.lsp @@ -39,17 +39,14 @@ `(funcall #'(setf ,name) ,store ,@all)) (cons name all))))) -(defun setf-method-wrapper (name setf-lambda) - (declare (si::c-local)) - #'(lambda (env &rest args) - (declare (ignore env)) - (do-setf-method-expansion name setf-lambda args))) - (defun do-defsetf (access-fn function) (declare (type-assertions nil)) (if (symbolp function) (do-defsetf access-fn #'(lambda (store &rest args) `(,function ,@args ,store))) - (do-define-setf-method access-fn (setf-method-wrapper access-fn function)))) + (do-define-setf-method access-fn + #'(lambda (env &rest args) + (declare (ignore env)) + (do-setf-method-expansion access-fn function args))))) (defun do-define-setf-method (access-fn function) (declare (type-assertions nil))