Post Code

One recurring complaint is that nobody talks about code on /prog/. So everyone write go and write some code, any code, that does something, anything, and post it. A small explanation wouldn't go amiss either.

>>162

((LAMBDA (#:|\|t\|14770|)
   ((LAMBDA (#:|\|t\|14769|) (FC |st|::|*\|st\|identity*| NIL))
    (LOCALLY
     (DECLARE (SPECIAL |st|::|*\|st\|playMusic*|))
     (SETQ |st|::|*\|st\|playMusic*| #:|\|t\|14770|))))
 (NAMED-FN |st|::|\|st\|playMusic| (#:|\|t\|2010|)
           ((LAMBDA (#:|\|t\|14836|)
              (FC |st|::|*\|st\|vars*|
                  (LAMBDA (#:|\|t\|14835|)
                    ((LAMBDA (#:|\|t\|14834|)
                       ((LAMBDA (#:|\|t\|14832| #:|\|t\|14833|)
                          ((LAMBDA (#:|\|t\|14832| |st|::|\|st\|race|)
                             ((LAMBDA (#:|\|t\|14822|)
                                (FC |st|::|*\|st\|dataPrefix*|
                                    (LAMBDA (#:|\|t\|14831|)
                                      (FC |st|::|*\|st\|aest*|
                                          (LAMBDA (#:|\|t\|14826|)
                                            (FC |st|::|*\|st\|aest*|
                                                (LAMBDA (#:|\|t\|14830|)
                                                  (FC |st|::|*\|st\|conc*|
                                                      (LAMBDA
                                                          (#:|\|t\|14829|)
                                                        (FC
                                                         |st|::|*\|st\|asStr*|
                                                         (LAMBDA
                                                             (#:|\|t\|14828|)
                                                           (FC
                                                            |st|::|*\|st\|aest*|
                                                            (LAMBDA
                                                                (#:|\|t\|14827|)
                                                              (FC
                                                               |st|::|*\|st\|conc*|
                                                               (LAMBDA
                                                                   (#:|\|t\|14825|)
                                                                 (FC
                                                                  |st|::|*\|st\|asStr*|
                                                                  (LAMBDA
                                                                      (#:|\|t\|14824|)
                                                                    (FC
                                                                     |st|::|*\|st\|ls*|
                                                                     (LAMBDA
                                                                         (#:|\|t\|14823|)
                                                                       (FC
                                                                        (LAMBDA
                                                                            (#:|\|t\|14821|)
                                                                          (FC
                                                                           |st|::|*\|st\|keep*|
                                                                           (LAMBDA
                                                                               (#:|\|t\|14785|)
                                                                             (FC
                                                                              |st|::|*\|st\|rand*|
                                                                              (LAMBDA
                                                                                  (#:|\|t\|14784|)
                                                                                ((LAMBDA
                                                                                     (#:|\|t\|2010|
                                                                                      #:|\|t\|14739|)
                                                                                   ((LAMBDA
                                                                                        (#:|\|t\|14771|)