From: David Vazquez <davazp@gmail.com>
Date: Mon, 11 Feb 2013 00:12:59 +0000 (+0000)
Subject: Better comment
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d53e309549e0c6f9fbd061c43de42899ac84fa57;p=jscl.git

Better comment
---

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