blob: 4a234ad33a7771184bf52d8d411eb659a72e8662 (
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#
msgid ""
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 ""
msgid "title: RPN macro setup"
msgstr ""
msgid "date: 2016-04-05"
msgstr ""
msgid "layout: post"
msgstr ""
msgid "lang: en"
msgstr ""
msgid "ref: rpn-macro-setup"
msgstr ""
#~ msgid ""
#~ "title: RPN macro setup\n"
#~ "date: 2016-04-05\n"
#~ "layout: post\n"
#~ "lang: en"
#~ msgstr ""
#~ msgid ""
#~ "title: RPN macro setup\n"
#~ "date: 2016-04-05\n"
#~ "layout: pastebin\n"
#~ "lang: en"
#~ msgstr ""
|
