diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-01-26 16:37:29 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-01-26 16:37:29 -0500 |
| commit | c9a268552c8294bbca607da239528e6b89f8fb5b (patch) | |
| tree | c267b6db350e7626abf8bd78832d2cee1987e55f /lisp/emacs-lisp/cl-preloaded.el | |
| parent | 606c94f47ddef5a5a3dcff13048369253bbdcb3c (diff) | |
| download | emacs-c9a268552c8294bbca607da239528e6b89f8fb5b.tar.gz | |
* lisp/emacs-lisp/cl-preloaded.el: Update cl-slot-descriptor name.
Diffstat (limited to 'lisp/emacs-lisp/cl-preloaded.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-preloaded.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |