[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c9a2685: * lisp/emacs-lisp/cl-preloaded.el: Update
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master c9a2685: * lisp/emacs-lisp/cl-preloaded.el: Update cl-slot-descriptor name. |
Date: |
Fri, 26 Jan 2018 16:37:34 -0500 (EST) |
branch: master
commit c9a268552c8294bbca607da239528e6b89f8fb5b
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/cl-preloaded.el: Update cl-slot-descriptor name.
---
lisp/emacs-lisp/cl-preloaded.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 4e73a4a..92d2999 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c9a2685: * lisp/emacs-lisp/cl-preloaded.el: Update cl-slot-descriptor name.,
Stefan Monnier <=