I reformatted the code and it might looks like this:
(labels (({ ( ] &rest [ )
(apply ( [ ] ) [))
([ ( ] )
(elt ( ] () ) ] ))
(] ( < )
(do-external-symbols ( ] `:cl )
(push `,] `,<))
(sort < `string< `:key `string))
(} ( } { )
( { `688 ( { `875
( { `398 () "~{~A ~}~%" ( ] () ) )
}
(+ `,{ (*) } )))
( { `381 )
( { `816 `2/9)))
( { `561 () #'} `(874 ,948 7 ,6009 4862 ,370 10 ,12249) `(3 ,2 4 ,4 2 ,1
1 ,0)))
easy to understand now, right? :-P
Best regards,
Xiaofeng Yang
2014-04-03 17:03 GMT+08:00 Attila Lendvai <attila.lend...@gmail.com>:
> > (labels(({(] &rest [)(apply([ ])[))([(])(elt(]())]))(](<)(
> > do-external-symbols(]`:cl)(push`,]`,<))(sort <`string<`:key`string))(}(}
> > {)({`688({`875({`398()"~{~A ~}~%"(]()))}(+`,{(*)})))({`381)({`816`2/9)))
> > ({`561()#'}`(874,948 7,6009 4862,370 10,12249)`(3,2 4,4 2,1 1,0)))
>
> WTF!!
>
> :D
>
> --
> • attila lendvai
> • PGP: 963F 5D5F 45C7 DFCD 0A39
> --
> “Some people, when confronted with a Unix problem, think "I know, I'll
> use sed." Now they have two problems.”
> — Jamie Zawinski
>
> _______________________________________________
> Asdf-devel mailing list
> Asdf-devel@common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
>
_______________________________________________
Asdf-devel mailing list
Asdf-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
