From d53e309549e0c6f9fbd061c43de42899ac84fa57 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 11 Feb 2013 00:12:59 +0000 Subject: [PATCH] Better comment --- ecmalisp.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index a9b65c5..76ab4a6 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -598,7 +598,8 @@ (value (second pairs))) (multiple-value-bind (vars vals store-vars writer-form reader-form) (get-setf-expansion place) - ;; TODO: Optimize the expansion code here. + ;; TODO: Optimize the expansion a little bit to avoid let* + ;; or multiple-value-bind when unnecesary. `(let* ,(mapcar #'list vars vals) (multiple-value-bind ,store-vars ,value -- 1.7.10.4