-
Notifications
You must be signed in to change notification settings - Fork 7
/
SYSATOMS
215 lines (208 loc) · 2.06 KB
/
SYSATOMS
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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
()[]"'..T+-0123456789%~E#
(
NIL
BTV*
CLOCK
DATE
EJECT
EXIT
GENSYM
LISPX
RATOM
READ
READC
READP
RESET
TERPRI
TIME
)
(
ADD1
ERRORMESS
RECLAIM
ROLLIN
ROLLOUT
SUB1
REWIND
)
(
ALIST
ARRAYSIZE
ARRAYP
ATOM
CAR
CDR
CAAR
CADR
CDAR
CDDR
CAAAR
CAADR
CADAR
CADDR
CDAAR
CDADR
CDDAR
CDDDR
EVAL
EVLIS
FIXP
FLOATP
GETD
LAST
LENGTH
LISTP
LITATOM
NLISTP
NULL
NUMBERP
OBLIST
PROG1
PROMPTTEXT
RETURN
REVERSE
STRINGP
ZEROP
)
(
ADDLIST
ALPHORDER
APPEND
APPLY
ASSOC
CHTAB
CONS
DIFFERENCE
ELT
ELTI
ELTR
EQ
EQUAL
EVALA
EVSTK
GETPROP
GREATERP
IOTAB
IQUOREM
LESSP
MEMB
MEMBER
NCHARS
NCONC
NCONC1
NEQ
NTH
PACK
QUOTIENT
RPLACA
RPLACD
RPT
SASSOC
SET
STRALLOC
TAILP
UNPACK
XCALL
)
(
APPLYA
APPLYSTK
ARRAY
MAP
MAPC
MAPCAR
MAPLIST
OPEN0
PRIN0
PUTPROP
RPLSTRING
SETA
SETI
SETR
SUBPAIR
SUBSTRING
SYSERROR
)
(
CONCAT
LIST
PLUS
SYSFLAG
TIMES
)
(
AND
BINDENV
COND
FUNCTION
GO
GO*
OR
PROG
PROGN
QUOTE
SELECTQ
SETQ
)
A000
APPLY
EVAL
FNCELL
FSUBR
FUNARG
LAMBDA
LISPF4-ARRAY
LISPF4-STRING
LISPF4-SUBSTRING
LISPX
NLAMBDA
NOBIND
PROG
QUOTE
SUBR
SYSERROR
*FORM
*INTERN
-*-
.
T
--- Unbound variable
--- Undefined function
--- Compacting GBC. Free cells =
Exit from Lisp F4
--- Undefined label
--- RETURN outside PROG
--- Illegal argument (subr1)
--- Illegal argument (subr2)
--- Illegal argument (subr3)
--- Illegal argument (subrn)
--- Fatal parameterstack overflow
--- Stack overflow
--- LISPX drop-thru
*** Bottom ***
--- Parameter stack owerflow 15
--- Invalid stack pointer
--- Reset
--- Illegal environment 18
--- Big number GBC. Bignum space =
Lisp F4 , latest update =
--- Argument not an array
Space (cells smallnum bignums atoms) =
--- Illegal argument (fsubr)
--- Non-recursive GBC called
--- Bignum space empty. 0 returned
--- Keyboard interrupt
--- User break
--- Array index out of bounds
--- Bad substring. NIL printed
Bye
--- Faulty funarg block
--- EOF read from standard input
--- Atom space empty. NIL returned
--- Free cell space almost exhausted
--- GBC. Free cells =
--- List space empty
--- Bignum/atom space almost exhausted
--- Bignum/atom GBC. Atom space =
GBC:s (cell compacting num num/atom) =
Environment Top