From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 18 Aug 2019 08:34:18 +0000 (+0200)
Subject: no need to quote types into structs
X-Git-Tag: emacs-28.0.90~2727^2~1268
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52089993aa3231ccdfd0469aeb7c3e7b6b89edad;p=emacs.git

no need to quote types into structs
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 9c31206cc2e..fdb1b386132 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -97,7 +97,7 @@ To be used when ncall-conv is nil."))
   (sp nil
       :documentation "When non nil indicates the sp value while entering
 into it.")
-  (closed nil :type 'boolean
+  (closed nil :type boolean
           :documentation "If the block was already closed.")
   (insns () :type list
          :documentation "List of instructions."))
@@ -106,7 +106,7 @@ into it.")
   "LIMPLE representation of a function."
   (symbol-name nil
                :documentation "Function symbol's name.")
-  (c-func-name nil :type 'string
+  (c-func-name nil :type string
                :documentation "The function name in the native world.")
   (func nil
         :documentation "Original form.")
@@ -114,15 +114,15 @@ into it.")
              :documentation "Byte compiled version.")
   (lap () :type list
        :documentation "Lap assembly representation.")
-  (args nil :type 'comp-args-base)
-  (frame-size nil :type 'number)
-  (blocks (make-hash-table) :type 'hash-table
+  (args nil :type comp-args-base)
+  (frame-size nil :type number)
+  (blocks (make-hash-table) :type hash-table
           :documentation "Key is the basic block symbol value is a comp-block
 structure.")
-  (lap-block (make-hash-table :test #'equal) :type 'hash-table
+  (lap-block (make-hash-table :test #'equal) :type hash-table
              :documentation "Key value to convert from LAP label number to
 LIMPLE basic block.")
-  (ssa-cnt -1 :type 'number
+  (ssa-cnt -1 :type number
               :documentation "Counter to create ssa limple vars."))
 
 (cl-defstruct (comp-mvar (:copier nil) (:constructor make--comp-mvar))
@@ -141,11 +141,11 @@ LIMPLE basic block.")
 
 (cl-defstruct (comp-limplify (:copier nil))
   "Support structure used during limplification."
-  (sp 0 :type 'fixnum
+  (sp 0 :type fixnum
       :documentation "Current stack pointer while walking LAP.")
-  (frame nil :type 'vector
+  (frame nil :type vector
          :documentation "Meta-stack used to flat LAP.")
-  (block-name nil :type 'symbol
+  (block-name nil :type symbol
     :documentation "Current basic block name."))
 
 (defmacro comp-within-log-buff (&rest body)