​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.lendvai@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