path: root/locale/pt/LC_MESSAGES/_pastebins/2016-04-05-rpn-macro-setup.po

#
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 ""