Advertisement
Guest User

Untitled

a guest
Apr 27th, 2018
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.22 KB | None | 0 0
  1. (defmacro defrule (name param-list &rest body)
  2. (let ((vinput (gensym)))
  3. `(defun ,(intern (format "parse-%s" name)) (,vinput)
  4. (unless (zerop (length ,vinput))
  5. ((lambda ,param-list ,@body) ,vinput)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement