From 29a8d9303bd3098eed88f3eb7394b66ae28cc887 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 26 Sep 2020 14:28:36 +0200
Subject: [PATCH] * lisp/emacs-lisp/cl-macs.el (cl--optimize): Add a FIXME.

---
 lisp/emacs-lisp/cl-macs.el | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
2.39.5