Quine Relay

gistfile1.txt

(self-referential-version-of
  '(lambda (self)
     (format t

"#include <stdio.h>~%int main(){printf(\"%s\",~(~s~));}"

             (remove #\newline (prin1-to-string self)))))
             
=>             
             
((lambda (self)
   (format t "#include <stdio.h>~%int main(){printf(\"%s\",~(~s~));}"
           (remove #\newline (prin1-to-string self))))
 ((lambda (a)
    (let ((b `',a))
      (let ((ab `(,a ,b)))
        `(,'(lambda (self)
              (format t
                      "#include <stdio.h>~%int main(){printf(\"%s\",~(~s~));}"
                      (remove #\newline (prin1-to-string self))))
          ,ab))))
  '(lambda (a)
     (let ((b `',a))
       (let ((ab `(,a ,b)))
         `(,'(lambda (self)
               (format t
                       "#include <stdio.h>~%int main(){printf(\"%s\",~(~s~));}"
                       (remove #\newline (prin1-to-string self))))
           ,ab))))))
       
=>       
        
#include <stdio.h>
int main(){printf("%s","((lambda (self)   (format t \"#include <stdio.h>~%int main(){printf(\\\"%s\\\",~(~s~));}\"           (remove #\\newline (prin1-to-string self)))) ((lambda (a)    (let ((b `',a))      (let ((ab `(,a ,b)))        `(,'(lambda (self)              (format t                      \"#include <stdio.h>~%int main(){printf(\\\"%s\\\",~(~s~));}\"                      (remove #\\newline (prin1-to-string self))))          ,ab))))  '(lambda (a)     (let ((b `',a))       (let ((ab `(,a ,b)))         `(,'(lambda (self)               (format t                       \"#include <stdio.h>~%int main(){printf(\\\"%s\\\",~(~s~));}\"                       (remove #\\newline (prin1-to-string self))))           ,ab))))))");}

=>

((lambda (self)   (format t "#include <stdio.h>~%int main(){printf(\"%s\",~(~s~));}"           (remove #\newline (prin1-to-string self)))) ((lambda (a)    (let ((b `',a))      (let ((ab `(,a ,b)))        `(,'(lambda (self)              (format t                      "#include <stdio.h>~%int main(){printf(\"%s\",~(~s~));}"                      (remove #\newline (prin1-to-string self))))          ,ab))))  '(lambda (a)     (let ((b `',a))       (let ((ab `(,a ,b)))         `(,'(lambda (self)               (format t                       "#include <stdio.h>~%int main(){printf(\"%s\",~(~s~));}"                       (remove #\newline (prin1-to-string self))))           ,ab))))))