9dfd945a2c
* lisp/emacs-lisp/package.el (package--activate-autoloads-and-load-path): (package--load-files-for-activation): Remove. (package--library-stem): New function, because file-name-sans-extension is insufficient. (package--reload-previously-loaded): New function. (package-activate-1): Reload directly. (package--files-load-history): (package--list-of-conflicts): (package--list-loaded-files): Remove (package-unpack): Adjust call. * test/lisp/emacs-lisp/package-tests.el (macro-builtin-func): Test. (macro-builtin-10-and-90): Test. (package-test-macro-compilation): Test. (package-test-macro-compilation-gz): Test (bug#49708).
30 lines
639 B
EmacsLisp
30 lines
639 B
EmacsLisp
;;; macro-builtin.el --- laksd -*- lexical-binding: t; -*-
|
|
|
|
;; Author: Artur Malabarba <emacs@endlessparentheses.com>
|
|
;; Keywords: tools
|
|
;; Version: 2.0
|
|
|
|
;;; Code:
|
|
|
|
(require 'macro-builtin-aux)
|
|
|
|
(defmacro macro-builtin-1 ( &rest forms)
|
|
"Description"
|
|
`(progn ,(cadr (car forms))))
|
|
|
|
|
|
(defun macro-builtin-func ()
|
|
""
|
|
(list (macro-builtin-1 '1 'b)
|
|
(macro-builtin-aux-1 'a 'b)))
|
|
|
|
(defmacro macro-builtin-3 (&rest _)
|
|
"Description"
|
|
10)
|
|
|
|
(defun macro-builtin-10-and-90 ()
|
|
""
|
|
(list (macro-builtin-3 haha) (macro-builtin-aux-3 hehe)))
|
|
|
|
(provide 'macro-builtin)
|
|
;;; macro-builtin.el ends here
|