Preserving LISP History Source Code and All Paul

Preserving LISP History: Source Code and All Paul Mc. Jones June 21, 2005 ILC 2005

Why? • The ability to design algorithms and data structures and implement them in software was a major development of modern time • LISP has been a test bed for language research and a production tool for 40+ years

LISP!

What? • Our descendents will be deprived of the early history of this development unless we preserve the actual source code, manuals, and other information about historic software

Jack Harper’s work:

Pascal Bourguignon’s work: 2112 * 03730 03731 03732 03733 03734 03735 03736 03737 03740 03741 03742 03743 03744 03745 03746 03747 03750 03751 0634 00 -0534 00 3 00000 0074 00 0771 00 0621 00 0500 00 0622 00 -0620 00 -0754 00 0774 00 2 00001 0074 00 0774 00 0634 00 0774 00 0020 00000 4 4 4 4 4 4 0 03747 03751 03734 04037 00022 00000 03751 00000 03746 03752 77777 03742 000001 00000 03752 03753 03754 03755 03756 03757 03760 03761 03762 -0520 0020 0601 0500 0100 0402 0601 0500 0020 0 4 0 0 0 4 11671 00001 04107 04106 03763 04110 04106 04107 00001 03763 03764 00 00 00 0634 00 0 11671 0500 00 0 04100 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 * CONS SXA LXD TXH TSX ARS STA CLA STD SLQ PXD CNTR 1 AXT TIX TSX AXT SXA CNSX AXT TRA FREE * ARREST NZT TRA STO CLA TZE SUB STO CLA TRA * AWHOA SXA CLA BASIC LISP FUNCTION PUTS A WORD IN FREE STORAGE CNSX, 4 $FREE, 4 *+2, 4, 0 FROUT, 4 18 0, 4 FREE 0, 4 **, 4 *+3, 4, 1 ARREST, 4 -1, 4 CNTR 1, 4 **, 4 1, 4 SAVE LINK IR GET FREE STORAGE LIST POINTER SKIP IF NOT OUT OF FREE STORAGE DECREMENT TO ADDRESS PUT ADDRESS AWY GET POINTER TO NEXT WORD IN FREE PUT DECREMENT AWAY POINTER TO WORD LOW ORDER 15 BITS OF CONS COUNTER KEPT DECREMENT COUNT BY 1 COUNT EXHAUSTED, RELOAD OR STOP RELOAD NUMBER PUT IN COUNTER RESTORE LINK IR EXIT POINTER TO FREE STORAGE LIST TCOUNT 1, 4 CNTM CNTS AWHOA CTG CNTS CNTM 1, 4 SKIP IF COUNS COUNTER ON OTERWISE RETURN SAVE AC GET REST OF COUNTER GO TO ERROR CALL IF EXHAUSTED DECREMENT BY 32, 768 UPDATE COUNTER RESTORE AC E 7 IT TO RELOAD CETR 1 TCOUNT, 0 CNTST DESACTIVATE THE CONS COUNTER PICK UP INITIAL COUNT

Dave Pitts’ work

What else? • LISP I and LISP 1. 5 for IBM 704, 7090; LISP 1. 5 for CTSS; LISP 1. 5 for Univac M-460; LISP 1. 5 for AN/FSQ-32/V; LISP 1. 5 at Stanford; SHARE LISP 1. 5; LISP 2; LISP 1. 5 for Univac 1108; Basic PDP-1 Lisp; LISP 1. 5/1. 6/MACLISP for PDP-6/10; BBN LISP; INTERLISP; Stanford LISP 1. 6; IBM Lisp; Multics Lisp; Zetalisp; Interlisp-D; Scheme; T; New Implementation of Lisp (NIL); S-1 Lisp; Spice Lisp; Standard LISP, Portable Standard Lisp (PSL); Franz Lisp; VLISP; Le_Lisp; Uti. Lisp; Common Lisp; Eu. Lisp; ISLISP; Emacs Lisp

What’s still needed? • More source code – LISP 2, INTERLISP-10, Mac. Lisp, Standard Lisp, LISP/360, … • More manuals • Oral histories • Photographs • And much more!

How Do I Get Involved? • The Computer History Museum is committed to supporting efforts like this, but we (I!) need your help. • Visit: community. computerhistory. org/scc/projects/LISP/ or Google “lisp history” • Contact me: Paul Mc. Jones paul@mcjones. org