Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defmacro defrule (name param-list &rest body)
- (let ((vinput (gensym)))
- `(defun ,(intern (format "parse-%s" name)) (,vinput)
- (unless (zerop (length ,vinput))
- ((lambda ,param-list ,@body) ,vinput)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement