blob: aef5eda7c6c03c9a26a070306a7be14f90597620 (
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-problem.el --- laksd -*- lexical-binding: t; -*-
;; Author: Artur Malabarba <emacs@endlessparentheses.com>
;; Keywords: tools
;; Version: 2.0
;;; Code:
(require 'macro-aux)
(defmacro macro-problem-1 ( &rest forms)
"Description."
`(progn ,(cadr (car forms))))
(defun macro-problem-func ()
"Description."
(list (macro-problem-1 '1 'b)
(macro-aux-1 'a 'b)))
(defmacro macro-problem-3 (&rest _)
"Description."
10)
(defun macro-problem-10-and-90 ()
"Description."
(list (macro-problem-3 haha) (macro-aux-3 hehe)))
(provide 'macro-problem)
;;; macro-problem.el ends here
|
