mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

lisp/emacs-lisp/comp-cstr.el: Fix bootstrap

Browse source 
* lisp/emacs-lisp/comp-cstr.el: Remove redundant require of `cl-macs`
and add missing require of `cl-extra`.

* lisp/emacs-lisp/cl-generic.el: Improve warning message.
* lisp/emacs-lisp/cl-extra.el (cl--print-table): Remove redundant arg.
This commit is contained in:
Stefan Monnier 2023-10-31 19:20:58 -04:00
parent 5f371ca07b
commit b93f931e9e
4 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/cl-lib.el
View file

@ -533,7 +533,12 @@ If ALIST is non-nil, the new pairs are prepended to it."
(unless (load "cl-loaddefs" 'noerror 'quiet)
;; When bootstrapping, cl-loaddefs hasn't been built yet!
(require 'cl-macs)
(require 'cl-seq))
(require 'cl-seq)
;; FIXME: Arguably we should also load `cl-extra', except that this
;; currently causes more bootstrap troubles, and `cl-extra' is
;; rarely used, so instead we explicitly (require 'cl-extra) at
;; those rare places where we do need it.
)
(defun cl--old-struct-type-of (orig-fun object)
(or (and (vectorp object) (> (length object) 0)