Bootstrap failure

[Po Lu <luangruo@yahoo.com>]

I've been getting:

Loading emacs-lisp/debug-early (source)...
Loading emacs-lisp/byte-run (source)...
Loading emacs-lisp/backquote (source)...
Loading subr (source)...
Loading keymap (source)...
Loading version (source)...
Loading widget (source)...
Loading custom (source)...
Loading emacs-lisp/map-ynp (source)...
Loading international/mule (source)...
Loading international/mule-conf (source)...
Loading env (source)...
Loading format (source)...
Loading bindings (source)...
Loading window (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/files.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/emacs-lisp/macroexp.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/emacs-lisp/pcase.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/emacs-lisp/macroexp.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/cus-face.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/faces.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/ldefs-boot.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/button.el (source)...
Loading /home/staff/emacs-dev/emacs-android/lisp/emacs-lisp/cl-preloaded.el (source)...
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl--struct-class-p: Handler: cl--struct-class-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)
Warning: Optimization failure for cl-slot-descriptor-p: Handler: cl-slot-descriptor-p--cmacro
(void-function seq-some)

Error: error ("Eager macro-expansion failure: (void-function seq-some)")
  mapbacktrace((closure ((prin1 . prin1) t) (evald func args _flags) (let ((args args)) (if evald (progn (princ "  ") (funcall prin1 func) (princ "(")) (progn (princ "  (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n"))))
  (let ((print-escape-newlines t) (print-escape-control-characters t) (print-escape-nonascii t) (prin1 (if (and (fboundp 'cl-prin1) (fboundp 'cl-defmethod) (condition-case nil (require 'cl-print) (error nil))) #'cl-prin1 #'prin1))) (mapbacktrace #'(lambda (evald func args _flags) (let ((args args)) (if evald (progn (princ "  ") (funcall prin1 func) (princ "(")) (progn (princ "  (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n")))))
  debug-early-backtrace()
  debug-early(error (error "Eager macro-expansion failure: (void-function seq-some)"))
  signal(error ("Eager macro-expansion failure: (void-function seq-some)"))
  error("Eager macro-expansion failure: %S" (void-function seq-some))
  (condition-case err (let ((macroexp--pending-eager-loads (cons load-file-name macroexp--pending-eager-loads))) (if full-p (macroexpand--all-toplevel form) (macroexpand form))) (error (error "Eager macro-expansion failure: %S" err) form))
  (cond ((eq 'skip (car macroexp--pending-eager-loads)) form) ((and load-file-name (member load-file-name macroexp--pending-eager-loads)) (let* ((bt (delq nil (mapcar #'macroexp--trim-backtrace-frame (macroexp--backtrace)))) (elem (list 'load (file-name-nondirectory load-file-name))) (tail (member elem (cdr (member elem bt))))) (if tail (setcdr tail (list '…))) (if (eq (car-safe (car bt)) 'macroexpand-all) (setq bt (cdr bt))) (if macroexp--debug-eager (debug 'eager-macroexp-cycle) (error "Eager macro-expansion skipped due to cycle:\n  %s" (mapconcat #'prin1-to-string (nreverse bt) " => "))) (setq macroexp--pending-eager-loads (cons 'skip macroexp--pending-eager-loads)) form)) (t (condition-case err (let ((macroexp--pending-eager-loads (cons load-file-name macroexp--pending-eager-loads))) (if full-p (macroexpand--all-toplevel form) (macroexpand form))) (error (error "Eager macro-expansion failure: %S" err) form))))
  (let ((symbols-with-pos-enabled t) (print-symbols-bare t)) (cond ((eq 'skip (car macroexp--pending-eager-loads)) form) ((and load-file-name (member load-file-name macroexp--pending-eager-loads)) (let* ((bt (delq nil (mapcar #'macroexp--trim-backtrace-frame (macroexp--backtrace)))) (elem (list 'load (file-name-nondirectory load-file-name))) (tail (member elem (cdr (member elem bt))))) (if tail (setcdr tail (list '…))) (if (eq (car-safe (car bt)) 'macroexpand-all) (setq bt (cdr bt))) (if macroexp--debug-eager (debug 'eager-macroexp-cycle) (error "Eager macro-expansion skipped due to cycle:\n  %s" (mapconcat #'prin1-to-string (nreverse bt) " => "))) (setq macroexp--pending-eager-loads (cons 'skip macroexp--pending-eager-loads)) form)) (t (condition-case err (let ((macroexp--pending-eager-loads (cons load-file-name macroexp--pending-eager-loads))) (if full-p (macroexpand--all-toplevel form) (macroexpand form))) (error (error "Eager macro-expansion failure: %S" err) form)))))
  internal-macroexpand-for-load((defalias 'cl--copy-slot-descriptor #'(lambda (slot) (let ((new (cl--copy-slot-descriptor-1 slot))) (cl-callf copy-alist (cl--slot-descriptor-props new)) new))) t)
  eval-buffer(#<buffer  *load*> nil "/home/staff/emacs-dev/emacs-android/lisp/emacs-lisp/cl-preloaded.el" nil t)
  (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t))
  (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))
  (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t))))
  (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer)))
  (let ((buffer (generate-new-buffer " *load*")) (load-in-progress t) (source (string-suffix-p ".el" fullname))) (unless nomessage (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (when purify-flag (push (purecopy file) preloaded-file-list)) (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (unless (or nomessage noninteractive) (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t)
  (if (null (file-readable-p fullname)) (and (null noerror) (signal 'file-error (list "Cannot open load file" file))) (let ((buffer (generate-new-buffer " *load*")) (load-in-progress t) (source (string-suffix-p ".el" fullname))) (unless nomessage (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (when purify-flag (push (purecopy file) preloaded-file-list)) (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (unless (or nomessage noninteractive) (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t))
  load-with-code-conversion("/home/staff/emacs-dev/emacs-android/lisp/emacs-lisp/cl-preloaded.el" "/home/staff/emacs-dev/emacs-android/lisp/emacs-lisp/cl-preloaded.el" nil nil)
  load("emacs-lisp/cl-preloaded")
  load("loadup.el")

bootstrapping today's checkouts of both the android and master branches.
Would someone please look into this?

Thanks.