Advertisement
Guest User

Untitled

a guest
Jan 9th, 2011
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.22 KB | None | 0 0
  1. (defmacro def-function-map-factory [namesym docstr k]
  2.   `(defmacro ~namesym ~docstr
  3.      [& args#]
  4.      (let [f# (if (= 1 (count args#))
  5.                 (first args#)
  6.                 (list* 'fn args#))]
  7.        `{~~k ~f#})))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement