[Bug: 21.4.16] wrong type ...(Backtrace II)

[Werner Bast]

Hello again another Backtrace:


Signaling: (error "Unable to identify server code.")
  signal(error ("Unable to identify server code."))
  cerror("Unable to identify server code.")
  apply(cerror "Unable to identify server code." nil)
  error("Unable to identify server code.")
  efs-process-scream-and-yell("229 Entering Extended Passive Mode (|||
53142|)")
  efs-process-handle-line("229 Entering Extended Passive Mode (|||
53142|)" #<process "*ftp anonymous at ftp.xemacs.org*" pid 9639 
state:run>)
  efs-process-filter(#<process "*ftp anonymous at ftp.xemacs.org*" pid 9639 
state:run> "229 Entering Extended Passive Mode (|||53142|)\n")
  accept-process-output(#<process "*ftp anonymous at ftp.xemacs.org*" pid 
9639 state:run>)
  byte-code("..." [efs-process-nowait efs-process-busy proc 
process-status (run open) accept-process-output] 2)
  efs-raw-send-cmd(#<process "*ftp anonymous at ftp.xemacs.org*" pid 9639 
state:run> "ls \"-al\" /root/tmp//efseMCvLV" 
"Listing /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function (result line cont-lines host user proc cmd msg 
pre-cont cont nowait noretry) "...(177)" [line result cmd nowait cont 
retry fatal efs-send-cmd t 1 2 failed ... quote stor match-data ... nil 
string-match efs-write-recover efs-host-type efs-call-cont host 
afsc-result afsc-line afsc-cont-lines cont-lines noretry user msg 
pre-cont case-fold-search cfs buff match-data efs-write-protect-msgs] 
12> "ftp.xemacs.org" "anonymous" #<process "*ftp 
anonymous at ftp.xemacs.org*" pid 9639 state:run> (dir "" 
"/root/tmp//efseMCvLV" "-al") 
"Listing /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function ... "...(267)" ... 13> unix unix:unknown 
"ftp.xemacs.org" "anonymous" "/root/tmp//efseMCvLV" 
"/pub/xemacs/packages/" "-al" 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t nil t 
nil nil) nil nil) nil)
  efs-send-cmd("ftp.xemacs.org" "anonymous" (dir "" 
"/root/tmp//efseMCvLV" "-al") 
"Listing /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function (result line cont-lines host-type listing-type 
host user temp-file path switches file lsargs noparse parse noerror msg 
nowait cont) "...(267)" [user listing cont temp-file lsargs host 
get-buffer efs-ftp-process-buffer ... ascii ... efs-ls-dumb-check 
unknown unix:unknown efs-call-cont nil efs-error "DIR failed: " 
efs-ftp-path efs-add-file-entry efs-host-type fundamental-mode 
get-buffer-create erase-buffer file-readable-p sleep-for 
insert-file-contents format "list data file %s not readable" 
efs-set-files efs-parse-listing buffer-string efs-add-to-ls-cache 
efs-get-ls-converter assoc char-to-string 0 file conv listing-type buff 
line path noerror nowait listing-result parse switches saved-buff 
efs-process-client-altered-xfer-type ...] 13> unix unix:unknown 
"ftp.xemacs.org" "anonymous" "/root/tmp//efseMCvLV" 
"/pub/xemacs/packages/" "-al" 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t nil t 
nil nil) nil)
  #<compiled-function (result line cont-lines host-type listing-type 
host user temp temp-file path switches file lsargs noparse parse 
noerror msg nowait cont nlist) "...(93)" [path noerror msg user host 
cont efs-call-cont nil efs-error format "CWD %s failed: " efs-send-cmd 
nlist dir file-name-nondirectory t "Listing %s" efs-relativize-filename 
#<compiled-function ... "...(267)" ... 13> lsargs file nowait result 
line temp host-type listing-type temp-file switches noparse parse] 
22>(nil "250 CWD command successful." "" unix unix:unknown 
"ftp.xemacs.org" "anonymous" ("/root/tmp//efseMCvLV" . 
"/root/tmp//efseMCvLV") "/root/tmp//efseMCvLV" "/pub/xemacs/packages/" 
"-al" "/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t 
nil t nil nil nil)
  apply(#<compiled-function (result line cont-lines host-type 
listing-type host user temp temp-file path switches file lsargs noparse 
parse noerror msg nowait cont nlist) "...(93)" [path noerror msg user 
host cont efs-call-cont nil efs-error format "CWD %s failed: " 
efs-send-cmd nlist dir file-name-nondirectory t "Listing %s" 
efs-relativize-filename #<compiled-function ... "...(267)" ... 13> 
lsargs file nowait result line temp host-type listing-type temp-file 
switches noparse parse] 22> (nil "250 CWD command successful." "" unix 
unix:unknown "ftp.xemacs.org" "anonymous" ("/root/tmp//efseMCvLV" . 
"/root/tmp//efseMCvLV") "/root/tmp//efseMCvLV" "/pub/xemacs/packages/" 
"-al" "/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t 
nil t nil nil nil))
  efs-call-cont((#<compiled-function (result line cont-lines host-type 
listing-type host user temp temp-file path switches file lsargs noparse 
parse noerror msg nowait cont nlist) "...(93)" [path noerror msg user 
host cont efs-call-cont nil efs-error format "CWD %s failed: " 
efs-send-cmd nlist dir file-name-nondirectory t "Listing %s" 
efs-relativize-filename #<compiled-function ... "...(267)" ... 13> 
lsargs file nowait result line temp host-type listing-type temp-file 
switches noparse parse] 22> unix unix:unknown "ftp.xemacs.org" 
"anonymous" ("/root/tmp//efseMCvLV" . "/root/tmp//efseMCvLV") 
"/root/tmp//efseMCvLV" "/pub/xemacs/packages/" "-al" 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t nil t 
nil nil nil) nil "250 CWD command successful." "")
  #<compiled-function (result line cont-lines host user proc cmd msg 
pre-cont cont nowait noretry) "...(177)" [line result cmd nowait cont 
retry fatal efs-send-cmd t 1 2 failed (append rename put) quote stor 
match-data (...) nil string-match efs-write-recover efs-host-type 
efs-call-cont host afsc-result afsc-line afsc-cont-lines cont-lines 
noretry user msg pre-cont case-fold-search cfs buff match-data 
efs-write-protect-msgs] 12>(nil "250 CWD command successful." "" 
"ftp.xemacs.org" "anonymous" #<process "*ftp anonymous at ftp.xemacs.org*" 
pid 9639 state:run> (cwd "/pub/xemacs/packages/") "CWD'ing 
to /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function (result line cont-lines host-type listing-type 
host user temp temp-file path switches file lsargs noparse parse 
noerror msg nowait cont nlist) "...(93)" [path noerror msg user host 
cont efs-call-cont nil efs-error format "CWD %s failed: " efs-send-cmd 
nlist dir file-name-nondirectory t "Listing %s" efs-relativize-filename 
#<compiled-function ... "...(267)" ... 13> lsargs file nowait result 
line temp host-type listing-type temp-file switches noparse parse] 22> 
unix unix:unknown "ftp.xemacs.org" 
"anonymous" ("/root/tmp//efseMCvLV" . "/root/tmp//efseMCvLV") 
"/root/tmp//efseMCvLV" "/pub/xemacs/packages/" "-al" 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t nil t 
nil nil nil) nil nil)
  apply(#<compiled-function (result line cont-lines host user proc cmd 
msg pre-cont cont nowait noretry) "...(177)" [line result cmd nowait 
cont retry fatal efs-send-cmd t 1 2 failed (append rename put) quote 
stor match-data (...) nil string-match efs-write-recover efs-host-type 
efs-call-cont host afsc-result afsc-line afsc-cont-lines cont-lines 
noretry user msg pre-cont case-fold-search cfs buff match-data 
efs-write-protect-msgs] 12> (nil "250 CWD command successful." "" 
"ftp.xemacs.org" "anonymous" #<process "*ftp anonymous at ftp.xemacs.org*" 
pid 9639 state:run> (cwd "/pub/xemacs/packages/") "CWD'ing 
to /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function ... "...(93)" ... 22> unix unix:unknown 
"ftp.xemacs.org" "anonymous" ("/root/tmp//efseMCvLV" . 
"/root/tmp//efseMCvLV") "/root/tmp//efseMCvLV" "/pub/xemacs/packages/" 
"-al" "/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t 
nil t nil nil nil) nil nil))
  efs-call-cont((#<compiled-function (result line cont-lines host user 
proc cmd msg pre-cont cont nowait noretry) "...(177)" [line result cmd 
nowait cont retry fatal efs-send-cmd t 1 2 failed ... quote stor 
match-data ... nil string-match efs-write-recover efs-host-type 
efs-call-cont host afsc-result afsc-line afsc-cont-lines cont-lines 
noretry user msg pre-cont case-fold-search cfs buff match-data 
efs-write-protect-msgs] 12> "ftp.xemacs.org" "anonymous" #<process 
"*ftp anonymous at ftp.xemacs.org*" pid 9639 state:run> (cwd 
"/pub/xemacs/packages/") "CWD'ing 
to /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function ... "...(93)" ... 22> unix unix:unknown 
"ftp.xemacs.org" "anonymous" ("/root/tmp//efseMCvLV" . 
"/root/tmp//efseMCvLV") "/root/tmp//efseMCvLV" "/pub/xemacs/packages/" 
"-al" "/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t 
nil t nil nil nil) nil nil) nil "250 CWD command successful." "")
  efs-process-filter(#<process "*ftp anonymous at ftp.xemacs.org*" pid 9639 
state:run> "250 CWD command successful.\nftp> ")
  accept-process-output(#<process "*ftp anonymous at ftp.xemacs.org*" pid 
9639 state:run>)
  byte-code("..." [efs-process-nowait efs-process-busy proc 
process-status (run open) accept-process-output] 2)
  efs-raw-send-cmd(#<process "*ftp anonymous at ftp.xemacs.org*" pid 9639 
state:run> "quote cwd /pub/xemacs/packages/." "CWD'ing 
to /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function (result line cont-lines host user proc cmd msg 
pre-cont cont nowait noretry) "...(177)" [line result cmd nowait cont 
retry fatal efs-send-cmd t 1 2 failed ... quote stor match-data ... nil 
string-match efs-write-recover efs-host-type efs-call-cont host 
afsc-result afsc-line afsc-cont-lines cont-lines noretry user msg 
pre-cont case-fold-search cfs buff match-data efs-write-protect-msgs] 
12> "ftp.xemacs.org" "anonymous" #<process "*ftp 
anonymous at ftp.xemacs.org*" pid 9639 state:run> (cwd 
"/pub/xemacs/packages/") "CWD'ing 
to /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function ... "...(93)" ... 22> unix unix:unknown 
"ftp.xemacs.org" "anonymous" ("/root/tmp//efseMCvLV" . 
"/root/tmp//efseMCvLV") "/root/tmp//efseMCvLV" "/pub/xemacs/packages/" 
"-al" "/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t 
nil t nil nil nil) nil nil) nil)
  efs-send-cmd("ftp.xemacs.org" "anonymous" (cwd 
"/pub/xemacs/packages/") "CWD'ing 
to /anonymous at ftp.xemacs.org:/pub/xemacs/packages/" nil 
(#<compiled-function (result line cont-lines host-type listing-type 
host user temp temp-file path switches file lsargs noparse parse 
noerror msg nowait cont nlist) "...(93)" [path noerror msg user host 
cont efs-call-cont nil efs-error format "CWD %s failed: " efs-send-cmd 
nlist dir file-name-nondirectory t "Listing %s" efs-relativize-filename 
#<compiled-function ... "...(267)" ... 13> lsargs file nowait result 
line temp host-type listing-type temp-file switches noparse parse] 22> 
unix unix:unknown "ftp.xemacs.org" 
"anonymous" ("/root/tmp//efseMCvLV" . "/root/tmp//efseMCvLV") 
"/root/tmp//efseMCvLV" "/pub/xemacs/packages/" "-al" 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" parse t nil t 
nil nil nil) nil)
  efs-ls("/anonymous at ftp.xemacs.org:/pub/xemacs/packages/" "-al" t parse 
nil)
  efs-get-files("/anonymous at ftp.xemacs.org:/pub/xemacs/packages/")
  efs-get-file-entry("/anonymous at ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.gpg")
  #<compiled-function (path) "...(7)" [path efs-get-file-entry t] 
2>("/anonymous at ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.gpg")
  apply(#<compiled-function (path) "...(7)" [path efs-get-file-entry t] 
2> 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.gpg")
  efs-internal-file-exists-p(unix 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.gpg")
  efs-file-exists-p("/anonymous at ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.gpg")
  apply(efs-file-exists-p 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.gpg")
  efs-file-handler-function(file-exists-p 
"/anonymous at ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.gpg")
  file-exists-p("/anonymous at ftp.xemacs.org:pub/xemacs/packages/package-index.LATEST.gpg")
  package-get-locate-file("package-index.LATEST.gpg" t nil)
  package-get-locate-index-file(nil)
  (let ((dflt ...)) (list (read-file-name "Load package-get database: 
" ... dflt t ...)))
  call-interactively(package-get-update-base)
  recursive-edit()
  byte-code("..." [print-escape-newlines print-length debugger-buffer 
debugger-value standard-output debugger-args pop-to-buffer erase-buffer 
t 50 backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 
debugger-reenable (lambda debug) "Entering:\n" debug backtrace-debug 3 
delete-char ?* 0 exit "Return value: " prin1 ?\n ?\  error "Signaling: 
" "Beginning evaluation of function call form:\n" nil message "" 
recursive-edit buffer-read-only inhibit-trace] 3)
  debug(error (wrong-type-argument stringp nil))
  find-file-name-handler(nil insert-file-contents-literally)
  insert-file-contents-literally(nil)
  package-get-locate-index-file(nil)
  (let ((dflt ...)) (list (read-file-name "Load package-get database: 
" ... dflt t ...)))
  call-interactively(package-get-update-base)

Greetings Werner