File: macro-problem.el

package info (click to toggle)
emacs 1%3A28.2%2B1-15%2Bdeb12u4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 173,452 kB
  • sloc: lisp: 1,235,793; ansic: 359,020; objc: 17,115; sh: 7,359; makefile: 6,248; cpp: 1,851; yacc: 1,566; xml: 1,530; perl: 1,459; php: 1,035; pascal: 1,011; python: 993; awk: 781; cs: 770; ada: 725; ruby: 405; javascript: 181; erlang: 153; java: 65; tcl: 16
file content (30 lines) | stat: -rw-r--r-- 641 bytes parent folder | download | duplicates (4) 
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