Need help with magit site-lisp

[Suvayu Ali <fatkasuvayu+linux@gmail.com>]

Hi,

I'm on Fedora.  But I compile my own Emacs and install in /opt/.  To use
some popular extra packages, I use symlinks in the site-lisp in /opt/ to
the system-wide site-lisp directories.  This works very nicely for all
packages except for magit (this setup had no issues for many years,
until now).  I was wondering if someone could help me debug the issue.

My setup:

- Self-compiled Emacs in /opt/emacs-lisp.
- Corresponding site-lisp folder looks like this:

  $ lt -d magit site-start.d
  lrwxrwxrwx. 1 jallad jallad 32 Apr  5  2011 magit -> /usr/share/emacs/site-lisp/magit
  lrwxrwxrwx. 1 jallad jallad 40 Oct  8 15:55 site-start.d -> /usr/share/emacs/site-lisp/site-start.d/

When I start the system-wide Emacs, I can use magit just fine.  But when
I call magit from my self-compiled Emacs, I get the following backtrace:

Debugger entered--Lisp error: (wrong-type-argument listp 769)
  magit-max-args-internal(delete-directory)
  byte-code("\300\301!\203\x0e\0\302\303\301\"\210\202\x13\0\302\303\304\"\210\305\306!\204\x1e\0\302\306\307\"\210\305\310!\203,\0\302\311\310\"\210\2021\0\302\311\312\"\210\313\314!\315Y\203A\0\302\316\314\"\210\202F\0\302\316\317\"\210\300\207" [functionp start-file-process defalias magit-start-process start-process fboundp string-match-p #[(regexp string &optional start) "\304\x18\305	\n\v#)\207" [inhibit-changing-match-data regexp string start t string-match] 4 "Same as `string-match' except this function does not\nchange the match data."] with-silent-modifications magit-with-silent-modifications (macro . #[(&rest body) "\301\302\303\304\305\bBBED\207" [body set-buffer-modified-p prog1 (buffer-modified-p) let ((buffer-undo-list t) before-change-functions after-change-functions)] 6 "Execute body without changing `buffer-modified-p'. Also, do not\nrecord undo information."]) magit-max-args-internal delete-directory 2 magit-delete-directory #[(directory &optional recursive) "\304\b!\204\f\0\305\b!\204\x10\0\306\b!\207	\2030\0\307\b\310\311#\312\x1a\211^[\203/\0\v@\x12\313\n	\"\210\vA\211\x13\204 \0*\314\b!\207" [directory recursive file --cl-dolist-temp-- file-symlink-p file-directory-p delete-file directory-files full "\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" nil magit-delete-directory delete-directory] 5 "Deletes a directory named DIRECTORY.  If RECURSIVE is non-nil,\nrecursively delete all of DIRECTORY's contents as well.\n\nDoes not follow symlinks."]] 3)
  autoload-do-load((autoload "magit" "Open a Magit status buffer for the Git repository containing\nDIR.  If DIR is not within a Git repository, offer to create a\nGit repository in DIR.\n\nInteractively, a prefix argument means to ask the user which Git\nrepository to use even if `default-directory' is under Git control.\nTwo prefix arguments means to ignore `magit-repo-dirs' when asking for\nuser input.\n\n(fn DIR)" t nil) magit-status)
  command-execute(magit-status record)
  execute-extended-command(nil "magit-status")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)

I don't understand the backtrace.  Can someone help me?

Thanks,

-- 
Suvayu

Open source is the future. It sets us free.