fork download
copy 
  1. (defmacro t []"((fn [s] (print (list s (list (quote quote) s)))) (quote (fn [s] (print (list s (list (quote quote) s))))))")(if '()(print(let[s clojure.string/replace](.toUpperCase(s(s(s(s(s(t)"fn""lambda")"[s]""(s)")"(quote ""'")"e)""e")")))))""))))"))))(eval '(princ(t))))
Success #stdin #stdout #stderr 0s 535040KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
((fn [s] (print (list s (list (quote quote) s)))) (quote (fn [s] (print (list s (list (quote quote) s))))))
stderr
copy 
WARNING: DEFUN/DEFMACRO(T): #<PACKAGE COMMON-LISP> is locked
         Ignore the lock and proceed
https://ideone.com/huLcty
language:
Common Lisp (clisp 2.49.92)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!