blob: 5d241c082d0b87bb10153616b4ce4bd28dc5d26d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
;;; 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
|
