mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-14 18:10:32 -08:00
Code Issues Projects Releases Wiki Activity

rework comp-new-frame

Browse source
This commit is contained in:
Andrea Corallo 2019-09-11 21:56:26 +02:00
parent 7edbb163b3
commit d6d5062bba
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -351,10 +351,10 @@ If INPUT is a string this is the file path to be compiled."
(defun comp-new-frame (size) (defun comp-new-frame (size)
"Return a clean frame of meta variables of size SIZE." "Return a clean frame of meta variables of size SIZE."
(let ((v (make-vector size nil))) (cl-loop with v = (make-vector size nil)
(cl-loop for i below size for i below size
do (aset v i (make-comp-mvar :slot i))) do (aset v i (make-comp-mvar :slot i))
v)) finally (return v)))
(cl-defun make-comp-mvar (&key slot (constant nil const-vld) type) (cl-defun make-comp-mvar (&key slot (constant nil const-vld) type)
(when const-vld (when const-vld