あとで

http://www.shinh.org/p.rb?Palindromic+Quine

(format t #1="~%(format t #1=~S #1#(reverse #1#))))#1# esrever(#1# ~S=1# t tamrof(" #1#(reverse #1#))))#1# esrever(#1# "(format t #1=S~ #1#(reverse #1#))))#1# esrever(#1# S~=1# t tamrof(%~"=1# t tamrof(

> ruby -e"puts $<.read.reverse" palindromic-quine.l >rev

> diff rev palindromic-quine.l

> clisp palindromic-quine.l > res
*** - READ from #<INPUT BUFFERED FILE-STREAM CHARACTER #P"palindromic-quine.l" @2>: an object cannot start with #\)

> diff res palindromic-quine.l

> diff rev res

test #1

failed!

size: 206
time: 0.109724 sec
status: 1

your output:

\n
(format t #1="~%(format t #1=~S #1#(reverse #1#))))#1# esrever(#1# ~S=1# t tamrof(" #1#(reverse #1#))))#1# esrever(#1# "(format t #1=S~ #1#(reverse #1#))))#1# esrever(#1# S~=1# t tamrof(%~"=1# t tamrof(\n

expected:

\n
(format t #1="~%(format t #1=~S #1#(reverse #1#))))#1# esrever(#1# ~S=1# t tamrof(" #1#(reverse #1#))))#1# esrever(#1# "(format t #1=S~ #1#(reverse #1#))))#1# esrever(#1# S~=1# t tamrof(%~"=1# t tamrof(\n

何を見落としているんだろ。