Monadic cond in LISP

I'll now post code written with some obscure macros whose implementation will never be released.


(define-macro mcond
  #:keyword (else =>)
  (macro-case
   (() #f)
   (((t) (e . r) ...) (>> failure-m t (mcond (e . r) ...)))
   (((else . t)) (begin . t))
   (((p => f) (e . r) ...) (>> failure-m (>>= maybe-m p f) (mcond (e . r) ...)))
   (((p . t) (e . r) ...) (>> failure-m (>> maybe-m p (begin . t)) (~ (e . r) ...)))))

>>18
If you use the WWW at all, a very large number of sites are coded in it.
I see this as a problem. You just arent free to choose language for web development. If you want to make anonymous imageboard in Lisp, you will have troubles finding hosting.