From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 26 Jan 2018 21:37:29 +0000 (-0500)
Subject: * lisp/emacs-lisp/cl-preloaded.el: Update cl-slot-descriptor name.
X-Git-Tag: emacs-27.0.90~5803
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9a268552c8294bbca607da239528e6b89f8fb5b;p=emacs.git

* lisp/emacs-lisp/cl-preloaded.el: Update cl-slot-descriptor name.
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 4e73a4a31b7..92d29996f91 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -61,7 +61,7 @@
 (fset 'cl--make-slot-desc
       ;; To break circularity, we pre-define the slot constructor by hand.
       ;; It's redefined a bit further down as part of the cl-defstruct of
-      ;; cl--slot-descriptor.
+      ;; cl-slot-descriptor.
       ;; BEWARE: Obviously, it's important to keep the two in sync!
       (lambda (name &optional initform type props)
         (record 'cl-slot-descriptor
@@ -194,7 +194,7 @@
   (name nil :type symbol)               ;The type name.
   (docstring nil :type string)
   (parents nil :type (list-of cl--class)) ;The included struct.
-  (slots nil :type (vector cl--slot-descriptor))
+  (slots nil :type (vector cl-slot-descriptor))
   (index-table nil :type hash-table)
   (tag nil :type symbol) ;Placed in cl-tag-slot.  Holds the struct-class object.
   (type nil :type (memq (vector list)))