From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 lang/lisp/1.7.2/src/lisp.bootstrap | 117 +++++++++++++++++++++++++++++++++++++
 1 file changed, 117 insertions(+)
 create mode 100644 lang/lisp/1.7.2/src/lisp.bootstrap

(limited to 'lang/lisp/1.7.2/src/lisp.bootstrap')

diff --git a/lang/lisp/1.7.2/src/lisp.bootstrap b/lang/lisp/1.7.2/src/lisp.bootstrap
new file mode 100644
index 0000000..f28aae8
--- /dev/null
+++ b/lang/lisp/1.7.2/src/lisp.bootstrap
@@ -0,0 +1,117 @@
+NIL                      APVAL 
+NIL 
+T                        APVAL 
+T 
+F                        APVAL 
+F 
+COND                     FUNCTION 
+(LAMBDA ((INDEFINITE QUOTE X)) . 0) 
+BEGINOBLISTDUMP        FUNCTION 
+(LAMBDA () . 1) 
+NEXTATOM                FUNCTION 
+(LAMBDA () . 2) 
+ADDPROPERTY             FUNCTION 
+(LAMBDA (X X X) . 3) 
+ALTERPROPERTY           FUNCTION 
+(LAMBDA (X X X) . 4) 
+DELETEPROPERTY          FUNCTION 
+(LAMBDA (X X) . 5) 
+PROPERTYEXISTS          FUNCTION 
+(LAMBDA (X X) . 6) 
+PROPERTY                 FUNCTION 
+(LAMBDA (X X) . 7) 
+ADDFLAG                 FUNCTION 
+(LAMBDA (X X) . 8) 
+FLAG                     FUNCTION 
+(LAMBDA (X X) . 9) 
+DELETEFLAG              FUNCTION 
+(LAMBDA (X X) . 10) 
+BEGINPROPERTYLISTDUMP FUNCTION 
+(LAMBDA (X) . 11) 
+NEXTPROPERTY            FUNCTION 
+(LAMBDA () . 12) 
+APPLY                    FUNCTION 
+(LAMBDA (X X X) . 13) 
+EVAL                     FUNCTION 
+(LAMBDA (X X) . 14) 
+TRY                      FUNCTION 
+(LAMBDA (X X X X) . 15) 
+ASSOCIATIONLIST         FUNCTION 
+(LAMBDA () . 16) 
+ERRORSTOP               FUNCTION 
+(LAMBDA (X) . 17) 
+HEAD                     FUNCTION 
+(LAMBDA (X) . 18) 
+SETHEAD                 FUNCTION 
+(LAMBDA (X X) . 19) 
+TAIL                     FUNCTION 
+(LAMBDA (X) . 20) 
+SETTAIL                 FUNCTION 
+(LAMBDA (X X) . 21) 
+CONS                     FUNCTION 
+(LAMBDA (X X) . 22) 
+EQ                       FUNCTION 
+(LAMBDA (X X) . 23) 
+GET                      FUNCTION 
+(LAMBDA () . 24) 
+PUT                      FUNCTION 
+(LAMBDA (X) . 25) 
+NULL                     FUNCTION 
+(LAMBDA (X) . 26) 
+ATOM                     FUNCTION 
+(LAMBDA (X) . 27) 
+NAMEDATOM               FUNCTION 
+(LAMBDA (X) . 28) 
+GETATOM                 FUNCTION 
+(LAMBDA () . 29) 
+PUTATOM                 FUNCTION 
+(LAMBDA (X) . 30) 
+TEXT                     FUNCTION 
+(LAMBDA (X) . 31) 
+GETTEXT                 FUNCTION 
+(LAMBDA () . 32) 
+PUTTEXT                 FUNCTION 
+(LAMBDA (X) . 33) 
+CHARACTER                FUNCTION 
+(LAMBDA (X) . 34) 
+GETCHARACTER            FUNCTION 
+(LAMBDA () . 35) 
+PUTCHARACTER            FUNCTION 
+(LAMBDA (X) . 36) 
+INT                      FUNCTION 
+(LAMBDA (X). 37) 
+GETINT                  FUNCTION 
+(LAMBDA () . 38) 
+PUTINT                  FUNCTION 
+(LAMBDA (X) . 39) 
+SUM                      FUNCTION 
+(LAMBDA ((INDEFINITE X)) . 40) 
+DIFFERENCE               FUNCTION 
+(LAMBDA (X X). 41) 
+PRODUCT                  FUNCTION 
+(LAMBDA ((INDEFINITE X)). 42) 
+QUOTIENT                 FUNCTION 
+(LAMBDA (X X).43) 
+REMAINDER                FUNCTION 
+(LAMBDA (X X).44) 
+EQUAL                    FUNCTION 
+(LAMBDA (X X) . 45) 
+TRACE                    FUNCTION 
+(LAMBDA () . 46 ) 
+DEFINE                   FUNCTION 
+(LAMBDA ((INDEFINITE X)) . 47 ) 
+SET                      FUNCTION 
+(LAMBDA (X X) . 48 ) 
+QUOTE                    FUNCTION 
+(LAMBDA ((QUOTE X)) X) 
+LIST                     FUNCTION 
+(LAMBDA ((INDEFINITE X)) X) 
+DO                       FUNCTION 
+(LAMBDA ((INDEFINITE X)) NIL) 
+PUTLIST                 FUNCTION 
+(LAMBDA ((INDEFINITE X)) 
+  (COND 
+    ((NULL X) NIL) 
+    (T (DO (PUT (HEAD X)) (PUTLIST (TAIL X)))) 
+  ) 
+) 
-- 
cgit v1.2.3