Received: (at 59226) by debbugs.gnu.org; 14 Nov 2022 11:31:43 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon Nov 14 06:31:43 2022
Received: from localhost ([127.0.0.1]:49057 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1ouXgl-00016e-4Q
for submit <at> debbugs.gnu.org; Mon, 14 Nov 2022 06:31:43 -0500
Received: from mout02.posteo.de ([185.67.36.66]:38335)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <philipk@HIDDEN>) id 1ouXgi-00016M-My
for 59226 <at> debbugs.gnu.org; Mon, 14 Nov 2022 06:31:41 -0500
Received: from submission (posteo.de [185.67.36.169])
by mout02.posteo.de (Postfix) with ESMTPS id A7561240105
for <59226 <at> debbugs.gnu.org>; Mon, 14 Nov 2022 12:31:33 +0100 (CET)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017;
t=1668425494; bh=vT9vA1Y3ItjmgdaUr5+YGXMv+sUeEabIJVbed5hJ2Wo=;
h=From:To:Cc:Subject:Date:From;
b=CEHdyCBuWdRKy/bKkyA/2P1qmJwGilhWkltLBc7cUX8ZLzasTvctFYkOLGckQEfxO
dZVaMMJVTQLk3gmTUXS4F6MGzw5FDTcllFcE/nizLaQ+Zw/HZ39MIEcV1WxliSJ6rP
N6D2laj/Kcpvvk0+KNfBiLQIze9ZOzP1BVJRVGRr0yUyW/xc+dNnAAseF8cBImgxaV
TjW5sBcynxWtdc8rbsRIrvnHapbieidttHR5UlpUoGowlpLNRybKHClsfXOi3yCxK2
O0cT/iHBWXCJcNX9iWETkbVD/+5dYjiTMFtgl5GF3qsXFW0EfamknS9nwiB52kRRvc
Jd64GwNwwN9Xw==
Received: from customer (localhost [127.0.0.1])
by submission (posteo.de) with ESMTPSA id 4N9nFd2XbDz9rxF;
Mon, 14 Nov 2022 12:31:33 +0100 (CET)
From: Philip Kaludercic <philipk@HIDDEN>
To: Richard Kim <emacs18@HIDDEN>
Subject: Re: bug#59226: 29.0.50; unable to load package-vc.el if
package-vc-selected-packages is non-nil
In-Reply-To: <87o7tbq3l6.fsf@HIDDEN> (Richard Kim's message of "Sat, 12 Nov
2022 13:12:53 -0800")
References: <87o7tbq3l6.fsf@HIDDEN>
Date: Mon, 14 Nov 2022 11:31:33 +0000
Message-ID: <878rkd3h7u.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: -0.0 (/)
X-Debbugs-Envelope-To: 59226
Cc: 59226 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)
Richard Kim <emacs18@HIDDEN> writes:
> I would like to report what appears to be a bug in ~package-vc.el~ where emacs is
> unable to load this file if ~package-vc-selected-packages~ variable is
> ~not-nil~. To see this problem I created following simple test file:
>
> #+begin_src elisp
> $ cat ~/demo-package-vc-issue
>
> (setq package-vc-selected-packages
> '((treemacs-projectile
> :lisp-dir "src/extra"
> :main-file "treemacs-projectile.el"
> :url "https://github.com/Alexander-Miller/treemacs")))
>
> (setq debug-on-error t)
>
> (load-library "package-vc.el")
> #+end_src
> then following error is reported
>
> #+begin_example
> Debugger entered--Lisp error: (void-function package-vc--archives-initialize)
> (package-vc--archives-initialize)
> (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))
> (if (and name (package-installed-p name) (eq (progn (or (progn (and (memq ... cl-struct-package-desc-tags) t)) (signal 'wrong-type-argument (list 'package-desc pkg-desc))) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))
> (let ((pkg-desc (car (cdr (assoc name package-alist #'string=))))) (if (and name (package-installed-p name) (eq (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... pkg-desc))) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))))
> (let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr (assoc name package-alist #'string=))))) (if (and name (package-installed-p name) (eq (progn (or (progn ...) (signal ... ...)) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))))
> (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr (assoc name package-alist ...))))) (if (and name (package-installed-p name) (eq (progn (or ... ...) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))))))
> (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr ...)))) (if (and name (package-installed-p name) (eq (progn ... ...) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))))))
> (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car ...))) (if (and name (package-installed-p name) (eq ... ...)) nil (cond (... ...) (... ...) (... ... ...))))))))
> (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc ...)) (if (and name ... ...) nil (cond ... ... ...))))))))
> (let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let (...) (if ... nil ...))))))) (setq tail (cdr tail)))
> (while tail (let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 ...)) (let (... ...) (let ... ...)))))) (setq tail (cdr tail))))
> (let ((tail package-vc-selected-packages)) (while tail (let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* (...) (let ... ...))))) (setq tail (cdr tail)))))
> package-vc-ensure-packages()
> (closure (t) (sym val) (custom-set-default sym val) (package-vc-ensure-packages))(package-vc-selected-packages ((treemacs-projectile :lisp-dir "src/extra" :main-file "treemacs-projectile.el" :url "https://github.com/Alexander-Miller/treemacs")))
> custom-initialize-reset(package-vc-selected-packages (funcall #'(closure (t) nil "" 'nil)))
> custom-declare-variable(package-vc-selected-packages (funcall #'(closure (t) nil "" 'nil)) "List of packages that must be installed.\nEach memb..." :type (alist :tag "List of packages you want to be installed" :key-type (symbol :tag "Package") :value-type (choice (const :tag "Any revision" nil) (string :tag "Specific revision") (plist :options ((:url string) (:branch string) (:lisp-dir string) (:main-file string) (:vc-backend symbol))))) :set (closure (t) (sym val) (custom-set-default sym val) (package-vc-ensure-packages)) :version "29.1")
> eval-buffer(#<buffer *load*-179493> nil "/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." nil t) ; Reading at buffer position 6633
> load-with-code-conversion("/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." "/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." nil nil)
> load("package-vc.el")
> load-library("package-vc.el")
> eval-buffer(#<buffer *load*> nil "/home/kimr/.emacs-debug-1" nil t) ; Reading at buffer position 262
> load-with-code-conversion("/home/kimr/.emacs-debug-1" "/home/kimr/.emacs-debug-1" nil t)
> load("/home/kimr/.emacs-debug-1" nil t)
> command-line-1(("-l" "/home/kimr/.emacs-debug-1"))
> command-line()
> normal-top-level()
> #+end_example
Can you try the scratch/package-vc-fixes branch. I haven't merged it
yet, because I might need to revise some commits and I don't want to be
pushing minor fixes to master all the time.
bug-gnu-emacs@HIDDEN:bug#59226; Package emacs.
Full text available.
Received: (at submit) by debbugs.gnu.org; 12 Nov 2022 21:13:06 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sat Nov 12 16:13:06 2022
Received: from localhost ([127.0.0.1]:49450 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1otxoG-000276-W7
for submit <at> debbugs.gnu.org; Sat, 12 Nov 2022 16:13:05 -0500
Received: from lists.gnu.org ([209.51.188.17]:39016)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <emacs18@HIDDEN>) id 1otxoF-00026z-2b
for submit <at> debbugs.gnu.org; Sat, 12 Nov 2022 16:13:04 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <emacs18@HIDDEN>) id 1otxoE-0005Lo-Fl
for bug-gnu-emacs@HIDDEN; Sat, 12 Nov 2022 16:13:02 -0500
Received: from mail-pf1-x436.google.com ([2607:f8b0:4864:20::436])
by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
(Exim 4.90_1) (envelope-from <emacs18@HIDDEN>) id 1otxo9-0007En-Mj
for bug-gnu-emacs@HIDDEN; Sat, 12 Nov 2022 16:12:59 -0500
Received: by mail-pf1-x436.google.com with SMTP id q9so7759015pfg.5
for <bug-gnu-emacs@HIDDEN>; Sat, 12 Nov 2022 13:12:57 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112;
h=mime-version:message-id:date:reply-to:subject:to:from:from:to:cc
:subject:date:message-id:reply-to;
bh=Jc2lCiweWTsomdLoD3x0bS7+UHqcK9c6YsGYUf9JTkA=;
b=CeVjO8f1BqqHBdZ5gNKIbpt/O8TTMBupzT01VaJMzWnndPciIP3CfZkKRrEKzFNhJz
Q6imMCtWHqBV3bXDgTr3pgPdxE76CcUnm8Xo78QSwopw0QwlT7aRiwzsWLyzmfv4sYdN
dcW9LkAg4b81xFci2XA/M7GiRw5KO5umOQ0QDTWbNNGULGhaMuogdwb7RUogGQTK9+bf
sd4oejp1abaqsuOhQ4/fCg+h11sjqeH9XSudK3+/DZxK/4ijS0orj6Tdoq0QMWoencVb
O43xRpYvoLJEspH6SQ779qH3mKULwwT8NadjRbZYlEMwp4x/FD42mkpJycghYHb0qPUj
iFbw==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=1e100.net; s=20210112;
h=mime-version:message-id:date:reply-to:subject:to:from
:x-gm-message-state:from:to:cc:subject:date:message-id:reply-to;
bh=Jc2lCiweWTsomdLoD3x0bS7+UHqcK9c6YsGYUf9JTkA=;
b=tXmJE/ZsuiagWgCk94xm0VdexoojRE3Q3qcuXzcQekVBpJ/ZfDrP3V9SH3CAGHMiJg
QY8Y9/e3bN1hTW6rzemS4QxUztMXMFGCq3GdD65wVr8/TIVksLpsyCjJh/M+8nGmZ33L
NCLO8jJI44AZJbRAyaVAOL8R+4O6xPeKRVFd9lTafxZOd9jpTC31ULWh5o2LqSf6X1KT
+kLxmCAnywNpQ3XMQxq5h8wAXcQ0HG8qxG6YEsgfSvc6Rp7hfCvF5HvELgpAm6WjwoFp
MeoRGuuhy585Sw3NXWlTa/WffhdT32PO42CzZMV1oSrCctXxqSeqy8Ik7zyUcZ0oXo6K
mGJA==
X-Gm-Message-State: ANoB5pkzFc3mb6ALmfXePsWCSrQ+CiMjQdKkL7YTtyW0IFohDhngx73H
028DVJeKdx3Qp+GwkLuiH7S0d+uftCE=
X-Google-Smtp-Source: AA0mqf7Owsx9//V7fqnxfFaRA0Xo41IxsbTpmTXoRa5bAcF0P+n9rDMa/xvAN4XdLJLqdahK/6fCjg==
X-Received: by 2002:a63:4d5d:0:b0:46e:9bb2:f0f7 with SMTP id
n29-20020a634d5d000000b0046e9bb2f0f7mr6391758pgl.203.1668287575740;
Sat, 12 Nov 2022 13:12:55 -0800 (PST)
Received: from kimr-dell ([50.39.230.238]) by smtp.gmail.com with ESMTPSA id
k4-20020a170902c40400b00186a68ec086sm4083296plk.193.2022.11.12.13.12.54
(version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256);
Sat, 12 Nov 2022 13:12:55 -0800 (PST)
From: Richard Kim <emacs18@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: 29.0.50; unable to load package-vc.el if
package-vc-selected-packages is non-nil
Date: Sat, 12 Nov 2022 13:12:53 -0800
Message-ID: <87o7tbq3l6.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: multipart/alternative; boundary="=-=-="
Received-SPF: pass client-ip=2607:f8b0:4864:20::436;
envelope-from=emacs18@HIDDEN; helo=mail-pf1-x436.google.com
X-Spam_score_int: -15
X-Spam_score: -1.6
X-Spam_bar: -
X-Spam_report: (-1.6 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001,
FREEMAIL_REPLYTO_END_DIGIT=0.25, HTML_MESSAGE=0.001,
RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001,
SPF_PASS=-0.001 autolearn=no autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -0.8 (/)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Reply-To: emacs18@HIDDEN
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.8 (-)
--=-=-=
Content-Type: text/plain
#+LINK: cl https://navigator/SWE_NAVIGATOR/perforce/view_changelist.nhtml?port=1777&changelist=%s
#+LINK: jira https://jira.internal.synopsys.com/browse/%s
I would like to report what appears to be a bug in ~package-vc.el~ where emacs is
unable to load this file if ~package-vc-selected-packages~ variable is
~not-nil~. To see this problem I created following simple test file:
#+begin_src elisp
$ cat ~/demo-package-vc-issue
(setq package-vc-selected-packages
'((treemacs-projectile
:lisp-dir "src/extra"
:main-file "treemacs-projectile.el"
:url "https://github.com/Alexander-Miller/treemacs")))
(setq debug-on-error t)
(load-library "package-vc.el")
#+end_src
Following shows some background information.
#+begin_example
In GNU Emacs 29.0.50 (build 4, x86_64-pc-linux-gnu, GTK+ Version
3.24.33, cairo version 1.16.0) of 2022-11-12 built on kimr-dell
Repository revision: f8c11b5a92e78801d71e88cb4ac419e02d85953f
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12201001
System Description: Ubuntu 22.04.1 LTS
Configured using:
'configure '--program-transform-name=s/^ctags$/ctags.emacs/'
--with-dbus --with-file-notification=yes --with-gif=yes
--with-gnutls=yes --with-imagemagick --with-jansson --with-mailutils
--with-modules --with-nativecomp --with-pdumper=yes --with-png=yes
--with-rsvg --with-sound=yes --with-tiff=yes --with-x-toolkit=yes
--with-xml2 --with-xwidgets --without-compress-install --prefix
/home/kimr/opt/emacs29/20221112'
Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ
IMAGEMAGICK JPEG JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 MODULES
NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF
TOOLKIT_SCROLL_BARS WEBP X11 XDBE XIM XINPUT2 XPM XWIDGETS GTK3 ZLIB
#+end_example
If above test file is loaded via emacs as follows
#+begin_src shell
$ emacs -q -l ~/demo-package-vc-issue
#+end_src
then following error is reported
#+begin_example
Debugger entered--Lisp error: (void-function package-vc--archives-initialize)
(package-vc--archives-initialize)
(cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))
(if (and name (package-installed-p name) (eq (progn (or (progn (and (memq ... cl-struct-package-desc-tags) t)) (signal 'wrong-type-argument (list 'package-desc pkg-desc))) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))
(let ((pkg-desc (car (cdr (assoc name package-alist #'string=))))) (if (and name (package-installed-p name) (eq (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... pkg-desc))) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))))
(let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr (assoc name package-alist #'string=))))) (if (and name (package-installed-p name) (eq (progn (or (progn ...) (signal ... ...)) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))))
(let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr (assoc name package-alist ...))))) (if (and name (package-installed-p name) (eq (progn (or ... ...) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))))))
(progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr ...)))) (if (and name (package-installed-p name) (eq (progn ... ...) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))))))
(let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car ...))) (if (and name (package-installed-p name) (eq ... ...)) nil (cond (... ...) (... ...) (... ... ...))))))))
(progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc ...)) (if (and name ... ...) nil (cond ... ... ...))))))))
(let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let (...) (if ... nil ...))))))) (setq tail (cdr tail)))
(while tail (let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 ...)) (let (... ...) (let ... ...)))))) (setq tail (cdr tail))))
(let ((tail package-vc-selected-packages)) (while tail (let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* (...) (let ... ...))))) (setq tail (cdr tail)))))
package-vc-ensure-packages()
(closure (t) (sym val) (custom-set-default sym val) (package-vc-ensure-packages))(package-vc-selected-packages ((treemacs-projectile :lisp-dir "src/extra" :main-file "treemacs-projectile.el" :url "https://github.com/Alexander-Miller/treemacs")))
custom-initialize-reset(package-vc-selected-packages (funcall #'(closure (t) nil "" 'nil)))
custom-declare-variable(package-vc-selected-packages (funcall #'(closure (t) nil "" 'nil)) "List of packages that must be installed.\nEach memb..." :type (alist :tag "List of packages you want to be installed" :key-type (symbol :tag "Package") :value-type (choice (const :tag "Any revision" nil) (string :tag "Specific revision") (plist :options ((:url string) (:branch string) (:lisp-dir string) (:main-file string) (:vc-backend symbol))))) :set (closure (t) (sym val) (custom-set-default sym val) (package-vc-ensure-packages)) :version "29.1")
eval-buffer(#<buffer *load*-179493> nil "/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." nil t) ; Reading at buffer position 6633
load-with-code-conversion("/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." "/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." nil nil)
load("package-vc.el")
load-library("package-vc.el")
eval-buffer(#<buffer *load*> nil "/home/kimr/.emacs-debug-1" nil t) ; Reading at buffer position 262
load-with-code-conversion("/home/kimr/.emacs-debug-1" "/home/kimr/.emacs-debug-1" nil t)
load("/home/kimr/.emacs-debug-1" nil t)
command-line-1(("-l" "/home/kimr/.emacs-debug-1"))
command-line()
normal-top-level()
#+end_example
--=-=-=
Content-Type: text/html
<p>
I would like to report what appears to be a bug in <code>package-vc.el</code> where emacs is
unable to load this file if <code>package-vc-selected-packages</code> variable is
<code>not-nil</code>. To see this problem I created following simple test file:
</p>
<div class="org-src-container">
<pre class="src src-elisp">$ cat ~/demo-package-vc-issue
<span style="color: #000000;">(</span>setq package-vc-selected-packages
'<span style="color: #a8007f;">(</span><span style="color: #005f88;">(</span>treemacs-projectile
:lisp-dir <span style="color: #2544bb;">"src/extra"</span>
:main-file <span style="color: #2544bb;">"treemacs-projectile.el"</span>
:url <span style="color: #2544bb;">"https://github.com/Alexander-Miller/treemacs"</span><span style="color: #005f88;">)</span><span style="color: #a8007f;">)</span><span style="color: #000000;">)</span>
<span style="color: #000000;">(</span>setq debug-on-error t<span style="color: #000000;">)</span>
<span style="color: #000000;">(</span>load-library <span style="color: #2544bb;">"package-vc.el"</span><span style="color: #000000;">)</span>
</pre>
</div>
<p>
Following shows some background information.
</p>
<pre class="example" id="org129f29f">
In GNU Emacs 29.0.50 (build 4, x86_64-pc-linux-gnu, GTK+ Version
3.24.33, cairo version 1.16.0) of 2022-11-12 built on kimr-dell
Repository revision: f8c11b5a92e78801d71e88cb4ac419e02d85953f
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12201001
System Description: Ubuntu 22.04.1 LTS
Configured using:
'configure '--program-transform-name=s/^ctags$/ctags.emacs/'
--with-dbus --with-file-notification=yes --with-gif=yes
--with-gnutls=yes --with-imagemagick --with-jansson --with-mailutils
--with-modules --with-nativecomp --with-pdumper=yes --with-png=yes
--with-rsvg --with-sound=yes --with-tiff=yes --with-x-toolkit=yes
--with-xml2 --with-xwidgets --without-compress-install --prefix
/home/kimr/opt/emacs29/20221112'
Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ
IMAGEMAGICK JPEG JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 MODULES
NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF
TOOLKIT_SCROLL_BARS WEBP X11 XDBE XIM XINPUT2 XPM XWIDGETS GTK3 ZLIB
</pre>
<p>
If above test file is loaded via emacs as follows
</p>
<div class="org-src-container">
<pre class="src src-shell">$ emacs -q -l ~/demo-package-vc-issue
</pre>
</div>
<p>
then following error is reported
</p>
<pre class="example" id="org3dd64e6">
Debugger entered--Lisp error: (void-function package-vc--archives-initialize)
(package-vc--archives-initialize)
(cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))
(if (and name (package-installed-p name) (eq (progn (or (progn (and (memq ... cl-struct-package-desc-tags) t)) (signal 'wrong-type-argument (list 'package-desc pkg-desc))) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))
(let ((pkg-desc (car (cdr (assoc name package-alist #'string=))))) (if (and name (package-installed-p name) (eq (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... pkg-desc))) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))))
(let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr (assoc name package-alist #'string=))))) (if (and name (package-installed-p name) (eq (progn (or (progn ...) (signal ... ...)) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))))
(let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr (assoc name package-alist ...))))) (if (and name (package-installed-p name) (eq (progn (or ... ...) (aref pkg-desc 5)) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec)))))))
(progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car (cdr ...)))) (if (and name (package-installed-p name) (eq (progn ... ...) 'vc)) nil (cond ((null spec) (package-vc-install name)) ((stringp spec) (package-vc-install name nil spec)) ((listp spec) (package-vc--archives-initialize) (package-vc--unpack pkg-desc spec))))))))
(let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc (car ...))) (if (and name (package-installed-p name) (eq ... ...)) nil (cond (... ...) (... ...) (... ... ...))))))))
(progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let ((pkg-desc ...)) (if (and name ... ...) nil (cond ... ... ...))))))))
(let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 (cdr-safe x0))) (let ((name x1) (spec x2)) (let (...) (if ... nil ...))))))) (setq tail (cdr tail)))
(while tail (let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* ((x2 ...)) (let (... ...) (let ... ...)))))) (setq tail (cdr tail))))
(let ((tail package-vc-selected-packages)) (while tail (let ((x0 (car tail))) (progn (ignore (consp x0)) (let* ((x1 (car-safe x0))) (progn (ignore (symbolp x1)) (let* (...) (let ... ...))))) (setq tail (cdr tail)))))
package-vc-ensure-packages()
(closure (t) (sym val) (custom-set-default sym val) (package-vc-ensure-packages))(package-vc-selected-packages ((treemacs-projectile :lisp-dir "src/extra" :main-file "treemacs-projectile.el" :url "https://github.com/Alexander-Miller/treemacs")))
custom-initialize-reset(package-vc-selected-packages (funcall #'(closure (t) nil "" 'nil)))
custom-declare-variable(package-vc-selected-packages (funcall #'(closure (t) nil "" 'nil)) "List of packages that must be installed.\nEach memb..." :type (alist :tag "List of packages you want to be installed" :key-type (symbol :tag "Package") :value-type (choice (const :tag "Any revision" nil) (string :tag "Specific revision") (plist :options ((:url string) (:branch string) (:lisp-dir string) (:main-file string) (:vc-backend symbol))))) :set (closure (t) (sym val) (custom-set-default sym val) (package-vc-ensure-packages)) :version "29.1")
eval-buffer(#<buffer *load*-179493> nil "/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." nil t) ; Reading at buffer position 6633
load-with-code-conversion("/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." "/home/kimr/opt/emacs29/20221112/share/emacs/29.0.5..." nil nil)
load("package-vc.el")
load-library("package-vc.el")
eval-buffer(#<buffer *load*> nil "/home/kimr/.emacs-debug-1" nil t) ; Reading at buffer position 262
load-with-code-conversion("/home/kimr/.emacs-debug-1" "/home/kimr/.emacs-debug-1" nil t)
load("/home/kimr/.emacs-debug-1" nil t)
command-line-1(("-l" "/home/kimr/.emacs-debug-1"))
command-line()
normal-top-level()
</pre>
--=-=-=--
emacs18@HIDDEN:bug-gnu-emacs@HIDDEN.
Full text available.bug-gnu-emacs@HIDDEN:bug#59226; Package emacs.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.