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