blob: f28aae8f94ff6bc8178a33fa89ed6d78ddc4905a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
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))))
)
)
|
