self reproducing code

[stever@Riverside.SCRC.Symbolics.COM]

    Date: Fri, 7 Oct 88 13:30:30 MDT
    From: carr%car@cs.utah.edu (Harold Carr)

    It was an anonymous lambda application which, when evaluated in Common
    Lisp, would return the exact same for, which could then be evaluated
    again, always returning the same anonymous application.

((LAMBDA (TEMPLATE)
   (SETF (SECOND (SECOND TEMPLATE)) (COPY-TREE TEMPLATE))
   TEMPLATE)
 '((LAMBDA (TEMPLATE)
     (SETF (SECOND (SECOND TEMPLATE)) (COPY-TREE TEMPLATE))
     TEMPLATE)
   (QUOTE *PLACEHOLDER*)))

This will work.  I'm pretty sure there's a more elegant way to do it.
If anyone send you one, I'd appreciate a copy.

Thanks,

Stephen