From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 26 Sep 2020 12:28:36 +0000 (+0200)
Subject: * lisp/emacs-lisp/cl-macs.el (cl--optimize): Add a FIXME.
X-Git-Tag: emacs-28.0.90~2727^2~418
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29a8d9303bd3098eed88f3eb7394b66ae28cc887;p=emacs.git

* lisp/emacs-lisp/cl-macs.el (cl--optimize): Add a FIXME.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index e7c7374976a..9c41374fc70 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2359,6 +2359,8 @@ Example:
 (defun foo (x)
   (declare (cl-optimize (speed 3) (safety 0)))
   x)"
+  ;; FIXME this should make use of `cl--declare-stack' but I suspect
+  ;; this mechanism should be reviewed first.
   (cl-loop for (qly val) in qualities
            do (cl-ecase qly
                 (speed