feature/native-comp 82171a8 6/8: * Add gv-setters for compiler hints

[Andrea Corallo]

branch: feature/native-comp
commit 82171a8f0de6e88566aa0d80388dab135dbc260f
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Add gv-setters for compiler hints
    
        * lisp/emacs-lisp/comp.el (comp-hint-fixnum, comp-hint-cons): Add
        gv-setters so type hinted expressions can be used as places.
        Read we can now have like: '(cl-incf (cl-the fixnum x))'.
---
 lisp/emacs-lisp/comp.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index eceba77..f168980 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2495,9 +2495,11 @@ Prepare every function for final compilation and drive 
the C back-end."
 ;; are assumed just to be true. Use with extreme caution...
 
 (defun comp-hint-fixnum (x)
+  (declare (gv-setter (lambda (val) `(setf ,x ,val))))
   x)
 
 (defun comp-hint-cons (x)
+  (declare (gv-setter (lambda (val) `(setf ,x ,val))))
   x)