code.delx.au - gnu-emacs/blob - test/lisp/emacs-lisp/package-resources/macro-problem-package-2.0/macro-problem.el

   1 ;;; macro-problem.el --- laksd                                  -*- lexical-binding: t; -*-
   2
   3 ;; Author: Artur Malabarba <emacs@endlessparentheses.com>
   4 ;; Keywords: tools
   5 ;; Version: 2.0
   6
   7 ;;; Code:
   8
   9 (require 'macro-aux)
  10
  11 (defmacro macro-problem-1 ( &rest forms)
  12   "Description"
  13   `(progn ,(cadr (car forms))))
  14
  15
  16 (defun macro-problem-func ()
  17   ""
  18   (list (macro-problem-1 '1 'b)
  19         (macro-aux-1 'a 'b)))
  20
  21 (defmacro macro-problem-3 (&rest _)
  22   "Description"
  23   10)
  24
  25 (defun macro-problem-10-and-90 ()
  26   ""
  27   (list (macro-problem-3 haha) (macro-aux-3 hehe)))
  28
  29 (provide 'macro-problem)
  30 ;;; macro-problem.el ends here