Download code
From LiteratePrograms
Back to Quine_(Lisp)
Download for Windows: single file, zip
Download for UNIX: single file, zip, tar.gz, tar.bz2
quine.lisp
1 ; Copyright (c) 2010 the authors listed at the following URL, and/or 2 ; the authors of referenced articles or incorporated external code: 3 ; http://en.literateprograms.org/Quine_(Lisp)?action=history&offset=20070321022646 4 ; 5 ; Permission is hereby granted, free of charge, to any person obtaining 6 ; a copy of this software and associated documentation files (the 7 ; "Software"), to deal in the Software without restriction, including 8 ; without limitation the rights to use, copy, modify, merge, publish, 9 ; distribute, sublicense, and/or sell copies of the Software, and to 10 ; permit persons to whom the Software is furnished to do so, subject to 11 ; the following conditions: 12 ; 13 ; The above copyright notice and this permission notice shall be 14 ; included in all copies or substantial portions of the Software. 15 ; 16 ; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 17 ; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 18 ; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 19 ; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY 20 ; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 21 ; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 22 ; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. 23 ; 24 ; Retrieved from: http://en.literateprograms.org/Quine_(Lisp)?oldid=9523 25 26 ((lambda (x) (list x (list 'quote x))) '(lambda (x) (list x (list 'quote x)))) 27
