Why does Lisp continue to exist?

So why does it? Is it used for writing kernels? For web servers? For browsers? For office applications? It's a leveled programming language that can't even be used to make drivers or anything that directly communicates the hardware. True, it has a very elegant way of expressing data structures and handling them, but what's the point of all that if you can't even use Lisp to make useful programs. Unless you can name one. But you can't

Lisp is old and tired. Lisp is only useful for jacking off to SICP and Sussman
Let Lisp rest in piece.

>>5
That isn't Symta, but a Lisp macro (with http://pastebin.com/DmpS1PqW)

Although Symta used `=` instead of `!`, so old Symta was like

doEffect U
 = A:U.with = T:A.dst = D:Units,T = N:A.effect
 = {N |a D,targetable?
     = E:U.damage
     = N,<\hit = !E+A.damage = {U.effects.bloodlust,pos? = !E*2}
         ;[\heal X] = !N:\hit
                    = {MC:A.uCost.mana
                         = S:X,sign = V:X*S = H:{S≤0=D.hp-D.hits; D.hits}
                         = X:(H+V-1)%V = C: min U.mana+MC MC*X = V:(C+MC)%MC*V*S
                         = !U.mana+(MC-C) = !E:[0 ~V-1]
                      ;√ = !E:[0 ~X-1]}
         ;[A B] = !N:A = !E:B>
     = M: u A dst:D.id src:U.id qualia:N effect:E ttl:A.cycles
     = S:{A.shards;1} = MS:16M.size = DC:D,centerDisp = WH:A.area = O:A.offset
     = rng S | e <I = Dst:{WH = WH|m:X randRng ~X X | 32?+DC
                          ;√ = DC}
                    = Src:O,<n = U,centerDisp
                            ;\circle = X:I*2PI/S = !M.angle:X = angled D 32 X
                            ;O = Dst+O>
                    = spawnMissile M U.owner Src-MS Dst-MS Sound:I≤1 Delay:S,rand>}
 = U