[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#50869: 28.0.50; tramp: void-function tramp-file-name-method--cmacro
From: |
Michael Albinus |
Subject: |
bug#50869: 28.0.50; tramp: void-function tramp-file-name-method--cmacro |
Date: |
Sat, 02 Oct 2021 18:36:37 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
"Shuguang Sun" via "Bug reports for GNU Emacs, the Swiss army knife of
text editors" <bug-gnu-emacs@gnu.org> writes:
> Hi,
Hi,
> After load - unload - load tramp, I got an compile error:
> Compiler-macro error for tramp-file-name-method: (void-function
> tramp-file-name-method--cmacro) [7 times]
>
> How to replicate it:
> - Start emacs
> - load-libary tramp
> - tramp-unload-tramp
> - load-libary tramp
> - tramp-unload-tramp
> - load-libary tramp
tramp-file-name-method--cmacro is a generated accessor function of the
defstruct tramp-file-name. I'm not sure that this is native Tramp
error. The backtrace shows as
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (void-function tramp-file-name-method--cmacro)
tramp-file-name-method--cmacro((tramp-file-name-method
(tramp-dissect-file-name filename)) (tramp-dissect-file-name filename))
apply(tramp-file-name-method--cmacro (tramp-file-name-method
(tramp-dissect-file-name filename)) (tramp-dissect-file-name filename))
macroexp--compiler-macro(tramp-file-name-method--cmacro
(tramp-file-name-method (tramp-dissect-file-name filename)))
#f(compiled-function (form func) #<bytecode
0x5031ad1730f4d5a>)(((tramp-file-name-method (tramp-dissect-file-name
filename))) tramp-file-name-method)
macroexp--expand-all((tramp-file-name-method (tramp-dissect-file-name
filename)))
macroexp--all-forms((string= (tramp-file-name-method (tramp-dissect-file-name
filename)) tramp-adb-method) 1)
#f(compiled-function (form func) #<bytecode 0x5031ad1730f4d5a>)(((string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method))
string=)
macroexp--expand-all((string= (tramp-file-name-method
(tramp-dissect-file-name filename)) tramp-adb-method))
macroexp--all-forms((and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method))
1)
#f(compiled-function (form func) #<bytecode 0x5031ad1730f4d5a>)(((and
(tramp-tramp-file-p filename) (string= (tramp-file-name-method
(tramp-dissect-file-name filename)) tramp-adb-method))) and)
macroexp--expand-all((and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method)))
macroexp--all-forms((lambda (filename) "Check if it's a FILENAME for ADB."
(and (tramp-tramp-file-p filename) (string= (tramp-file-name-method
(tramp-dissect-file-name filename)) tramp-adb-method))) 2)
macroexp--expand-all(#'(lambda (filename) "Check if it's a FILENAME for ADB."
(and (tramp-tramp-file-p filename) (string= (tramp-file-name-method
(tramp-dissect-file-name filename)) tramp-adb-method))))
macroexp--all-forms((defalias 'tramp-adb-file-name-p #'(lambda (filename)
"Check if it's a FILENAME for ADB." (and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename))
tramp-adb-method)))) 1)
#f(compiled-function (form func) #<bytecode 0x5031ad1730f4d5a>)(((defalias
'tramp-adb-file-name-p #'(lambda (filename) "Check if it's a FILENAME for ADB."
(and (tramp-tramp-file-p filename) (string= (tramp-file-name-method ...)
tramp-adb-method))))) defalias)
macroexp--expand-all((defun tramp-adb-file-name-p (filename) "Check if it's a
FILENAME for ADB." (and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method))))
macroexp--all-forms((prog1 (defun tramp-adb-file-name-p (filename) "Check if
it's a FILENAME for ADB." (and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method)))
(eval-and-compile (function-put 'tramp-adb-file-name-p 'speed '-1) (put
'tramp-adb-file-name-p 'byte-optimizer 'byte-compile-inline-expand))) 1)
#f(compiled-function (form func) #<bytecode 0x5031ad1730f4d5a>)(((prog1
(defun tramp-adb-file-name-p (filename) "Check if it's a FILENAME for ADB."
(and (tramp-tramp-file-p filename) (string= (tramp-file-name-method
(tramp-dissect-file-name filename)) tramp-adb-method))) (eval-and-compile
(function-put 'tramp-adb-file-name-p 'speed '-1) (put 'tramp-adb-file-name-p
'byte-optimizer 'byte-compile-inline-expand)))) prog1)
macroexp--expand-all((prog1 (defun tramp-adb-file-name-p (filename) "Check if
it's a FILENAME for ADB." (and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method)))
(eval-and-compile (function-put 'tramp-adb-file-name-p 'speed '-1) (put
'tramp-adb-file-name-p 'byte-optimizer 'byte-compile-inline-expand))))
macroexpand-all((prog1 (defun tramp-adb-file-name-p (filename) "Check if it's
a FILENAME for ADB." (and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method)))
(eval-and-compile (function-put 'tramp-adb-file-name-p 'speed '-1) (put
'tramp-adb-file-name-p 'byte-optimizer 'byte-compile-inline-expand))))
internal-macroexpand-for-load((prog1 (defun tramp-adb-file-name-p (filename)
"Check if it's a FILENAME for ADB." (and (tramp-tramp-file-p filename) (string=
(tramp-file-name-method (tramp-dissect-file-name filename)) tramp-adb-method)))
(eval-and-compile (function-put 'tramp-adb-file-name-p 'speed '-1) (put
'tramp-adb-file-name-p 'byte-optimizer 'byte-compile-inline-expand))) t)
eval-buffer(#<buffer *load*> nil
"/home/albinus/src/emacs-28/lisp/net/tramp-loaddefs..." nil t) ; Reading at
buffer position 4857
load-with-code-conversion("/home/albinus/src/emacs-28/lisp/net/tramp-loaddefs..."
"/home/albinus/src/emacs-28/lisp/net/tramp-loaddefs..." nil t)
load-with-shorthands-and-code-conversion("/home/albinus/src/emacs-28/lisp/net/tramp-loaddefs..."
"/home/albinus/src/emacs-28/lisp/net/tramp-loaddefs..." nil t)
require(tramp-loaddefs)
byte-code("\300\301!\210\302\303\304\305\306DD\307\310\311%\210\302\312\304\305\313DD\314\310\315%\210\302\316\304\305\317DD\320\321\322\310\311&\7\210\302\323\304\305\324DD..."
[require tramp-loaddefs custom-declare-variable tramp-mode funcall function
#f(compiled-function () #<bytecode 0x1f400016fe5d4>) "Whether Tramp is
enabled.\nIf it is set to nil, all..." :type boolean tramp-verbose
#f(compiled-function () #<bytecode 0x1f400016fead4>) "Verbosity level for Tramp
messages.\nAny level x in..." integer tramp-debug-to-file #f(compiled-function
() #<bytecode 0x1f400016fe914>) "Whether Tramp debug messages shall be saved to
fil..." :version "28.1" tramp-backup-directory-alist #f(compiled-function ()
#<bytecode 0x1f400016fe914>) "Alist of filename patterns and backup directory
na..." (repeat (cons (regexp :tag "Regexp matching filename") (directory :tag
"Backup directory name"))) tramp-auto-save-directory #f(compiled-function ()
#<bytecode 0x1f400016fe914>) "Put auto-save files in this directory, if
set.\nThe..." (choice (const :tag "Use default" nil) (directory :tag "Auto save
directory name")) tramp-encoding-shell #f(compiled-function () #<bytecode
0x12a348c7f818d327>) "Use this program for encoding and decoding command..."
(file :must-match t) tramp-encoding-command-switch #f(compiled-function ()
#<bytecode -0x1c3ad6ddc556ef84>) "Use this switch together with
`tramp-encoding-shel..." string tramp-encoding-command-interactive
#f(compiled-function () #<bytecode -0xce224b8508034ef>) "Use this switch
together with `tramp-encoding-shel..." "24.1" (choice (const nil) string)] 8)
load("tramp")
load-library("tramp")
funcall-interactively(load-library "tramp")
call-interactively(load-library record nil)
command-execute(load-library record)
execute-extended-command(nil "load-library" nil)
funcall-interactively(execute-extended-command nil "load-library" nil)
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)
--8<---------------cut here---------------end--------------->8---
> Best Regards,
> Shuguang Sun
Best regards, Michael.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#50869: 28.0.50; tramp: void-function tramp-file-name-method--cmacro,
Michael Albinus <=