scratch/package-vc-fixes 3046447102 22/48: ; Assert that 'package-lisp-dir' is used with real packages

[Philip Kaludercic]

branch: scratch/package-vc-fixes
commit 304644710222b24aeef07e57f63f9ead8f131cf3
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    ; Assert that 'package-lisp-dir' is used with real packages
    
    * lisp/emacs-lisp/package.el (package-lisp-dir): Raise an error if a
    package doesn't have a directory.
---
 lisp/emacs-lisp/package.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 5e5db3e2c4..d5874dee06 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -469,6 +469,7 @@ synchronously."
      (let* ((extras (package-desc-extras ,pkg-desc))
             (lisp-dir (alist-get :lisp-dir extras))
             (dir (package-desc-dir ,pkg-desc)))
+       (cl-assert dir)
        (file-name-directory (file-name-concat dir lisp-dir))))))
 
 (cl-defstruct (package-desc