mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 12:33:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

defsetf: remove local function SETF-METHOD-WRAPPER

Browse source 
It was called only once and only unnecessarily fragmented the
code. Incorporated in DO-DEFSETF.
This commit is contained in:
Daniel Kochmański 2016-01-26 15:22:45 +01:00
parent 8105ae6ca7
commit aaa0b43e99
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/lsp/setf.lsp
View file

@ -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))