Plaster

common-lisp
(SIMPLE-EVAL (LAMBDA (#1=#:G36341 #2=#:G36340) (DECLARE (IGNORE #2#)) (LET ((#3=#:G36342 (CDR #1#))) (DECLARE (IGNORABLE #3#)) (IF (NULL #3#) (ERROR "too few arguments") (LET ((ARCHITECTURE.BUILDER-PROTOCOL::NAME (CAR #3#))) (LET ((#4=#:G36345 (IF (NULL #3#) 'NIL (CDR #3#)))) (IF (NULL #4#) (ERROR "too few arguments") (LET ((#5=#:G36347 (CAR #4#))) (LET ((#6=#:G36350 #5#)) (LET ((ARCHITECTURE.BUILDER-PROTOCOL::ARGS #6#)) (LET ((#7=#:G36351 #6#)) (LET ((#8=#:G36348 #7#)) (DECLARE (IGNORABLE #8#)) (LET ((#9=#:G36349 #8#)) (DECLARE (IGNORE #9#)) (LET ((#10=#:G36346 (IF (NULL #4#) 'NIL (CDR #4#)))) (LET ((#11=#:G36344 #10#)) (LET ((#12=#:G36343 #11#)) (DECLARE (IGNORABLE #12#)) (LET* ((ARCHITECTURE.BUILDER-PROTOCOL::NAME* (ALEXANDRIA.0.DEV:SYMBOLICATE ARCHITECTURE.BUILDER-PROTOCOL::NAME '#:*)) (&REST (POSITION '&REST ARCHITECTURE.BUILDER-PROTOCOL::ARGS)) (ARCHITECTURE.BUILDER-PROTOCOL::ARGS1 (SUBSEQ ARCHITECTURE.BUILDER-PROTOCOL::ARGS 0 &REST)) (REST (WHEN &REST (NTH (1+ &REST) ARCHITECTURE.BUILDER-PROTOCOL::ARGS)))) (ECLECTOR.READER:QUASIQUOTE (DEFUN (ECLECTOR.READER:UNQUOTE ARCHITECTURE.BUILDER-PROTOCOL::NAME*) (ECLECTOR.READER:UNQUOTE ARCHITECTURE.BUILDER-PROTOCOL::ARGS) (ECLECTOR.READER:UNQUOTE (FORMAT NIL "Like `~(~A~)' but uses `*builder*' ~ instead of accepting a builder ~ parameter." ARCHITECTURE.BUILDER-PROTOCOL::NAME)) (ECLECTOR.READER:UNQUOTE (IF REST (ECLECTOR.READER:QUASIQUOTE (APPLY #'(ECLECTOR.READER:UNQUOTE ARCHITECTURE.BUILDER-PROTOCOL::NAME) ARCHITECTURE.BUILDER-PROTOCOL:*BUILDER* (ECLECTOR.READER:UNQUOTE-SPLICING ARCHITECTURE.BUILDER-PROTOCOL::ARGS1) (ECLECTOR.READER:UNQUOTE REST))) (ECLECTOR.READER:QUASIQUOTE ((ECLECTOR.READER:UNQUOTE ARCHITECTURE.BUILDER-PROTOCOL::NAME) ARCHITECTURE.BUILDER-PROTOCOL:*BUILDER* (ECLECTOR.READER:UNQUOTE-SPLICING ARCHITECTURE.BUILDER-PROTOCOL::ARGS1))))))))))))))))))))))) #<CLASP-CLEAVIR:CLASP-GLOBAL-ENVIRONMENT> #<FUNCTION LAMBDA>)