Path: utzoo!utgpu!water!watmath!clyde!bellcore!rutgers!apple!bloom-beacon!aiai.edinburgh.ac.UK!jeff
From: jeff@aiai.edinburgh.ac.UK (Jeff Dalton)
Newsgroups: comp.lang.scheme
Subject: Re: self reproducing code
Message-ID: <10500.8810101439@subnode.aiai.ed.ac.uk>
Date: 10 Oct 88 14:39:36 GMT
Sender: daemon@bloom-beacon.MIT.EDU
Organization: The Internet
Lines: 15

Here's one I wrote a while ago using the fairly standard technique
of having some data that looks pretty much like the code that uses
the data to reconstruct the data and the code.

;;; Self-reproducing function

(defun v ()
  (let ((m '(subst m
		   '**
		   '(defun v () (let ((m '**)) **)))))
    (subst m
	   '**
	   '(defun v () (let ((m '**)) **)))))

-- Jeff