bug#50869: 28.0.50; tramp: void-function tramp-file-name-method--cmacro

[Michael Albinus]

"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.