From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.bugs Subject: bug#33602: 27.0.50; Compiling no file at Date: Fri, 07 Dec 2018 21:17:50 +0200 Message-ID: <83efat5eox.fsf@gnu.org> References: <20181206133327.70786.qmail@mail.muc.de> <20181206215832.GA23102@INDRA> <20181207134327.GA7949@ACM> <5C0A7B00.5030106@gmx.at> <20181207145947.GB7949@ACM> <5C0AB2C2.8030600@gmx.at> <20181207181112.GE7949@ACM> NNTP-Posting-Host: blaine.gmane.org X-Trace: blaine.gmane.org 1544210230 3459 195.159.176.226 (7 Dec 2018 19:17:10 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 7 Dec 2018 19:17:10 +0000 (UTC) Cc: acm@muc.de, markusffm@fn.de, 33602@debbugs.gnu.org, m43cap@yandex.com To: Glenn Morris Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Dec 07 20:17:06 2018 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gVLcX-0000ld-Lb for geb-bug-gnu-emacs@m.gmane.org; Fri, 07 Dec 2018 20:17:05 +0100 Original-Received: from localhost ([::1]:47841 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gVLee-0006hz-Bs for geb-bug-gnu-emacs@m.gmane.org; Fri, 07 Dec 2018 14:19:16 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:39158) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gVLeT-0006hq-UB for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2018 14:19:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gVLeQ-0000sj-Nx for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2018 14:19:05 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:33091) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gVLeQ-0000sf-Jk for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2018 14:19:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gVLeQ-0005G0-Aq for bug-gnu-emacs@gnu.org; Fri, 07 Dec 2018 14:19:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Eli Zaretskii Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 07 Dec 2018 19:19:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33602 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 33602-submit@debbugs.gnu.org id=B33602.154421030820136 (code B ref 33602); Fri, 07 Dec 2018 19:19:02 +0000 Original-Received: (at 33602) by debbugs.gnu.org; 7 Dec 2018 19:18:28 +0000 Original-Received: from localhost ([127.0.0.1]:37347 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gVLdr-0005Eg-Rn for submit@debbugs.gnu.org; Fri, 07 Dec 2018 14:18:28 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:57511) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gVLdn-0005EE-A6 for 33602@debbugs.gnu.org; Fri, 07 Dec 2018 14:18:23 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gVLdf-0000XQ-2C for 33602@debbugs.gnu.org; Fri, 07 Dec 2018 14:18:17 -0500 Original-Received: from fencepost.gnu.org ([2001:4830:134:3::e]:58857) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gVLdX-0000UY-Lo; Fri, 07 Dec 2018 14:18:07 -0500 Original-Received: from [176.228.60.248] (port=3446 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1gVLdW-0005e5-H9; Fri, 07 Dec 2018 14:18:07 -0500 In-reply-to: (message from Glenn Morris on Fri, 07 Dec 2018 14:01:46 -0500) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:153195 Archived-At: > From: Glenn Morris > Date: Fri, 07 Dec 2018 14:01:46 -0500 > Cc: "markusffm@fn.de" , 33602@debbugs.gnu.org, > Colin Baxter > > 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 _) #) :specializers-function #f(compiled-function (tag &rest _) #)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #)))) 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 _) #) :specializers-function #f(compiled-function (tag &rest _) #))) (1 #s(cl--generic-generalizer :name cl--generic-typeof-generalizer :priority 10 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #))) (0 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #)))) :method-table (#s(cl--generic-method :specializers (t array t) :qualifiers nil :uses-cnm nil :function #f(compiled-function (store sequence n) #))) :options nil) ((2 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #))) (1 #s(cl--generic-generalizer :name cl--generic -typeof-generalizer :priority 10 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #))) (0 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #)))) (#s(cl--generic-method :specializers (t array t) :qualifiers nil :uses-cnm nil : function #f(compiled-function (store sequence n) #)))) 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 _) #) :specializers-function #f(compiled-function (tag &rest _) #))) (1 #s(cl--generic-generalizer :name cl--generic-typeof-generalizer :priority 10 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #))) (0 #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #) :specializers-function #f(compiled-function (tag &rest _) #)))) :method-table (#s(cl--generic-method :specializers (t array t) :qualifiers nil :uses-cnm nil :function #f(compiled-function (store sequence n) #))) :options nil)) cl-generic-define-method(\(setf\ seq-elt\) nil (store (sequence array) n) nil #f(compiled-function (store sequence n) #)) 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) #) \(setf\ seq-elt\) (store (sequence array) n) #f(compiled-function (store sequence n) #) (store (sequence cons) n) #f(compiled-function (store sequence n) #) seq-length (sequence) "Return the number of elements of SEQUENCE.\n\n(fn SE..." #f(compiled-function (sequ ence) #) seq-do #'sequence "Apply FUNCTION to each element of SEQUENCE, presum..." #f(compiled-function #'sequence #) seq-each] 7) load("seq")