blob: 5340de6a3518807f8455cc1bd575727d3323a829 (
about) (
plain) (
blame)
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
31
|
#
msgid ""
msgstr ""
msgid ""
"title: RPN macro setup\n"
"date: 2016-04-05\n"
"layout: pastebin\n"
"lang: en"
msgstr ""
msgid ""
"(defmacro rpn (body)\n"
" (rpn-expander body))\n"
"\n"
"(defun rpn-expander (body)\n"
" (mapcar (lambda (x)\n"
" (if (listp x)\n"
" (rpn-expander x)\n"
" x))\n"
" (reverse body)))\n"
"\n"
"(rpn ((2 1 +) 2 *))\n"
"; => 6\n"
"\n"
"#|\n"
"Just a quick stub.\n"
"\n"
"One could easily improve #'RPN-EXPANDER in order to better suit one's needs.\n"
"|#\n"
msgstr ""
|
