Commit c9a26855 authored by Stefan Monnier's avatar Stefan Monnier

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

parent 606c94f4
...@@ -61,7 +61,7 @@ ...@@ -61,7 +61,7 @@
(fset 'cl--make-slot-desc (fset 'cl--make-slot-desc
;; To break circularity, we pre-define the slot constructor by hand. ;; 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 ;; 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! ;; BEWARE: Obviously, it's important to keep the two in sync!
(lambda (name &optional initform type props) (lambda (name &optional initform type props)
(record 'cl-slot-descriptor (record 'cl-slot-descriptor
...@@ -194,7 +194,7 @@ ...@@ -194,7 +194,7 @@
(name nil :type symbol) ;The type name. (name nil :type symbol) ;The type name.
(docstring nil :type string) (docstring nil :type string)
(parents nil :type (list-of cl--class)) ;The included struct. (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) (index-table nil :type hash-table)
(tag nil :type symbol) ;Placed in cl-tag-slot. Holds the struct-class object. (tag nil :type symbol) ;Placed in cl-tag-slot. Holds the struct-class object.
(type nil :type (memq (vector list))) (type nil :type (memq (vector list)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment