_pastebins/2016-04-05-rpn-macro-setup.md


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

---
title: RPN macro setup
date: 2016-04-05
layout: post
lang: en
---

```lisp
(defmacro rpn (body)
  (rpn-expander body))

(defun rpn-expander (body)
  (mapcar (lambda (x)
                (if (listp x)
                    (rpn-expander x)
                    x))
          (reverse body)))

(rpn ((2 1 +) 2 *))
; => 6

#|
Just a quick stub.

One could easily improve #'RPN-EXPANDER in order to better suit one's needs.
|#
```