bug#33602: 27.0.50; Compiling no file at

[Eli Zaretskii <eliz@gnu.org>]

> From: Glenn Morris <rgm@gnu.org>
> Date: Fri, 07 Dec 2018 14:01:46 -0500
> Cc: "markusffm@fn.de" <markusffm@fn.de>, 33602@debbugs.gnu.org,
> 	Colin Baxter <m43cap@yandex.com>
> 
> emacs -Q -l seq
> 
> Now there is a Compile-Log buffer.

Thanks, here's the backtrace for that:

  (and (get-buffer byte-compile-log-buffer) (equal byte-compile-current-file byte-compile-last-logged-file))
  (not (and (get-buffer byte-compile-log-buffer) (equal byte-compile-current-file byte-compile-last-logged-file)))
  (and (not (and (get-buffer byte-compile-log-buffer) (equal byte-compile-current-file byte-compile-last-logged-file))) (not noninteractive) (save-current-buffer (set-buffer (get-buffer-create byte-compile-log-buffer)) (goto-char (point-max)) (let* ((inhibit-read-only t) (dir (and (stringp byte-compile-current-file) (file-name-directory byte-compile-current-file))) (was-same (equal default-directory dir)) pt) (if dir (progn (if was-same nil (insert (format-message "Leaving directory `%s'\n" default-directory))))) (if (bolp) nil (insert "\n")) (setq pt (point-marker)) (if byte-compile-current-file (insert "\f\nCompiling " (if (stringp byte-compile-current-file) (concat "file " byte-compile-current-file) (concat "in buffer " (buffer-name byte-compile-current-file))) " at " (current-time-stri
 ng) "\n") (insert "\f\nCompiling no file at " (current-time-string) "\n")) (if dir (progn (setq default-directory dir) (if was-same nil (insert (format-message "Entering directory `%s'\n" default-directory))))) (setq byte-compile-last-logged-file byte-compile-current-file byte-compile-last-warned-form nil) (if (derived-mode-p 'compilation-mode) nil (emacs-lisp-compilation-mode)) (compilation-forget-errors) pt)))
  byte-compile-log-file()
  (or (byte-compile-log-file) 'byte-compile-warning-series)
  (let ((warning-series (or (byte-compile-log-file) 'byte-compile-warning-series))) (if byte-compile-debug (funcall --displaying-byte-compile-warnings-fn) (condition-case error-info (funcall --displaying-byte-compile-warnings-fn) (error (byte-compile-report-error error-info)))))
  (if (or (eq warning-series 'byte-compile-warning-series) warning-series-started) (let (tem) (setq tem (byte-compile-log-file)) (if warning-series-started nil (setq warning-series (or tem 'byte-compile-warning-series))) (if byte-compile-debug (funcall --displaying-byte-compile-warnings-fn) (condition-case error-info (funcall --displaying-byte-compile-warnings-fn) (error (byte-compile-report-error error-info))))) (let ((warning-series (or (byte-compile-log-file) 'byte-compile-warning-series))) (if byte-compile-debug (funcall --displaying-byte-compile-warnings-fn) (condition-case error-info (funcall --displaying-byte-compile-warnings-fn) (error (byte-compile-report-error error-info))))))
  (let* ((--displaying-byte-compile-warnings-fn #'(lambda nil (let ((byte-compile-macro-environment ...) (byte-compile--outbuffer nil) (overriding-plist-environment nil) (byte-compile-function-environment nil) (byte-compile-bound-variables nil) (byte-compile-lexical-variables nil) (byte-compile-const-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings byte-compile-warnings)) (let* (... ... ...) (if macro ...) (cond ... ...))))) (warning-series-started (and (markerp warning-series) (eq (marker-buffer warning-series) (get-buffer byte-compile-log-buffer)))
 )) (byte-compile-find-cl-functions) (if (or (eq warning-series 'byte-compile-warning-series) warning-series-started) (let (tem) (setq tem (byte-compile-log-file)) (if warning-series-started nil (setq warning-series (or tem 'byte-compile-warning-series))) (if byte-compile-debug (funcall --displaying-byte-compile-warnings-fn) (condition-case error-info (funcall --displaying-byte-compile-warnings-fn) (error (byte-compile-report-error error-info))))) (let ((warning-series (or (byte-compile-log-file) 'byte-compile-warning-series))) (if byte-compile-debug (funcall --displaying-byte-compile-warnings-fn) (condition-case error-info (funcall --displaying-byte-compile-warnings-fn) (error (byte-compile-report-error error-info)))))))
  byte-compile((lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg0 arg &rest args) (let nil (apply (cl--generic-with-memoization (gethash ... method-cache) (cl--generic-cache-miss generic ... dispatches-left methods ...)) arg0 arg args))))))
  cl--generic-get-dispatcher((1 #s(cl--generic-generalizer :name cl--generic-typeof-generalizer :priority 10 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb95ff0>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb95fc0>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>))))
  cl--generic-make-next-function(#s(cl--generic :name \(setf\ seq-elt\) :dispatches ((2 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>))) (1 #s(cl--generic-generalizer :name cl--generic-typeof-generalizer :priority 10 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb95ff0>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb95fc0>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function 
 (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>))) (0 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>)))) :method-table (#s(cl--generic-method :specializers (t array t) :qualifiers nil :uses-cnm nil :function #f(compiled-function (store sequence n) #<bytecode -0x1ffffffffe48d7c0>))) :options nil) ((2 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>))) (1 #s(cl--generic-generalizer :name cl--generic
 -typeof-generalizer :priority 10 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb95ff0>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb95fc0>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>))) (0 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>)))) (#s(cl--generic-method :specializers (t array t) :qualifiers nil :uses-cnm nil :
 function #f(compiled-function (store sequence n) #<bytecode -0x1ffffffffe48d7c0>))))
  cl--generic-make-function(#s(cl--generic :name \(setf\ seq-elt\) :dispatches ((2 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>))) (1 #s(cl--generic-generalizer :name cl--generic-typeof-generalizer :priority 10 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb95ff0>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb95fc0>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag 
 &rest _) #<bytecode -0x1ffffffffeb99bf0>))) (0 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1ffffffffeb99c30>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x1ffffffffeb99bf0>)))) :method-table (#s(cl--generic-method :specializers (t array t) :qualifiers nil :uses-cnm nil :function #f(compiled-function (store sequence n) #<bytecode -0x1ffffffffe48d7c0>))) :options nil))
  cl-generic-define-method(\(setf\ seq-elt\) nil (store (sequence array) n) nil #f(compiled-function (store sequence n) #<bytecode -0x1ffffffffe48d7c0>))
  byte-code("\300\301\302\303#\304\301\305\306#\210\307\310\311\310\312\313#\314#\210\315\310\313\312\313\316%\210\315\317\313\320\313\321%\210\315\317\313\322\313\323%\210\307\324\311\324\325..." [function-put seq-let lisp-indent-function 2 put edebug-form-spec (sexp form body) defalias seq-elt cl-generic-define (sequence n) nil "Return Nth element of SEQUENCE.\n\n(fn SEQUENCE N)" cl-generic-define-method #f(compiled-function (sequence n) #<bytecode -0x1ffffffffe54c358>) \(setf\ seq-elt\) (store (sequence array) n) #f(compiled-function (store sequence n) #<bytecode -0x1ffffffffe48d7c0>) (store (sequence cons) n) #f(compiled-function (store sequence n) #<bytecode -0x1ffffffffe480810>) seq-length (sequence) "Return the number of elements of SEQUENCE.\n\n(fn SE..." #f(compiled-function (sequ
 ence) #<bytecode -0x1ffffffffe4808d0>) seq-do #'sequence "Apply FUNCTION to each element of SEQUENCE, presum..." #f(compiled-function #'sequence #<bytecode -0x1ffffffffe47f980>) seq-each] 7)
  load("seq")