{"body":"(defmacro defun-for-macros (name args &body body)\n  `(eval-when (:compile-toplevel)\n    (setf (fdefinition ',name)\n      (lambda ,args ,@body))))\n\n(defun-for-macros noodle (x) (+ x 2))\n\n(defmacro foodle (y) (noodle y))  ; note no backquote\n\n(defun poodle () (foodle 10))\n","name":"defun-for-macros.lisp","extension":"lisp","url":"https://www.irccloud.com/pastebin/o7Afj4M3/defun-for-macros.lisp","modified":1545970240,"id":"o7Afj4M3","size":271,"lines":10,"own_paste":false,"theme":"","date":1545970240}