[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 29a8d93 2/3: * lisp/emacs-lisp/cl-macs.el (cl--optim
From: |
Andrea Corallo |
Subject: |
feature/native-comp 29a8d93 2/3: * lisp/emacs-lisp/cl-macs.el (cl--optimize): Add a FIXME. |
Date: |
Sat, 26 Sep 2020 09:47:45 -0400 (EDT) |
branch: feature/native-comp
commit 29a8d9303bd3098eed88f3eb7394b66ae28cc887
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* 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 e7c7374..9c41374 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