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) ...)))))

>>24
Just use any of the hundreds of the free filesharing services, some don't use PHP for their interface, and besides, for most it's not even clear what runs underneath, after all, it's server-side software. In most cases it's either Apache, nginx or some custom httpd.

If you want to paste zips on services which only allow pasting text, just use base64, uuencode or similar.

All I keep hearing from you is excuses, I believe you just don't want to post your code as it either doesn't exist or you have some other reason you don't want it posted (ashamed or want to sell it, ...)