2
;first load the proclaims then get them:
3
;(setq lis (sort (sloop for v in-package 'lisp when (get v 'PROCLAIMED-FUNCTION-DECLARATION) collect v) #'(lambda (x y) (string-lessp (symbol-name x) (symbol-name y)))))
5
;(sloop for v in lis when (setq tem (get v 'proclaimed-function-declaration)) do (format t "(~a ~a ~a " v (car tem)(second tem)) (print-flag (third tem))(princ ")") (unless (eq (second tem) '*) (princ " ;Mv touched?")) (terpri))
6
(defmacro proclaim2 (name args res flag)
7
(progn (proclaim1 `(ftype (function ,args ,res) ,name))
8
(setf (fdecl flag (get name 'proclaimed-function-declaration) )
10
(proclaim2 * (*) T #.(flags ans constantp)) ;Mv touched?
11
(proclaim2 + (*) T #.(flags ans constantp)) ;Mv touched?
12
(proclaim2 - (T *) T #.(flags ans constantp)) ;Mv touched?
13
(proclaim2 / (T *) T #.(flags ans constantp)) ;Mv touched?
14
(proclaim2 /= (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
15
(proclaim2 1+ (T) T #.(flags ans constantp)) ;Mv touched?
16
(proclaim2 1- (T) T #.(flags ans constantp)) ;Mv touched?
17
(proclaim2 < (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
18
(proclaim2 <= (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
19
(proclaim2 = (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
20
(proclaim2 > (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
21
(proclaim2 >= (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
22
(proclaim2 ABS (T) T #.(flags ans constantp)) ;Mv touched?
23
(proclaim2 ACONS (T T T) T #.(flags ans constantp)) ;Mv touched?
24
(proclaim2 ACOS (T) T #.(flags ans constantp)) ;Mv touched?
25
(proclaim2 ACOSH (T) T #.(flags ans constantp)) ;Mv touched?
26
(proclaim2 ADJOIN (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
27
(proclaim2 ADJUST-ARRAY (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
28
(proclaim2 ADJUSTABLE-ARRAY-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
29
(proclaim2 ALPHA-CHAR-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
30
(proclaim2 ALPHANUMERICP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
31
(proclaim2 APPEND (*) T #.(flags ans set )) ;Mv touched?
32
(proclaim2 APPLY (T T *) * #.(flags ans set mv touch-mv))
33
(proclaim2 APROPOS (T *) * #.(flags ans set mv touch-mv))
34
(proclaim2 APROPOS-LIST (T *) T #.(flags ans set touch-mv)) ;Mv touched?
35
(proclaim2 AREF (T &optional fixnum fixnum fixnum fixnum *) T
36
#.(flags ans constantp))
37
(proclaim2 si::aset1 (T fixnum t) T #.(flags ans set constantp))
39
(proclaim2 ARRAY-DIMENSION (T FIXNUM) FIXNUM #.(flags ans constantp)) ;Mv touched?
40
(proclaim2 ARRAY-DIMENSIONS (T) T #.(flags ans constantp)) ;Mv touched?
41
(proclaim2 ARRAY-ELEMENT-TYPE (T) T #.(flags ans set touch-mv)) ;Mv touched?
42
(proclaim2 ARRAY-HAS-FILL-POINTER-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
43
(proclaim2 ARRAY-IN-BOUNDS-P (T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
44
(proclaim2 ARRAY-RANK (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
45
(proclaim2 ARRAY-ROW-MAJOR-INDEX (T *) FIXNUM #.(flags ans set touch-mv)) ;Mv touched?
46
(proclaim2 ARRAY-TOTAL-SIZE (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
47
(proclaim2 ARRAYP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
48
(proclaim2 ASH (INTEGER FIXNUM) INTEGER #.(flags ans constantp)) ;Mv touched?
49
(proclaim2 ASIN (T) T #.(flags ans constantp)) ;Mv touched?
50
(proclaim2 ASINH (T) T #.(flags ans constantp)) ;Mv touched?
51
(proclaim2 ASSOC (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
52
(proclaim2 ASSOC-IF (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
53
(proclaim2 ASSOC-IF-NOT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
54
(proclaim2 ATAN (T *) T #.(flags ans constantp)) ;Mv touched?
55
(proclaim2 ATANH (T) T #.(flags ans constantp)) ;Mv touched?
56
(proclaim2 ATOM (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
57
(proclaim2 BIT (T *) BIT #.(flags ans constantp)) ;Mv touched?
58
(proclaim2 BIT-AND (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
59
(proclaim2 BIT-ANDC1 (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
60
(proclaim2 BIT-ANDC2 (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
61
(proclaim2 BIT-EQV (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
62
(proclaim2 BIT-IOR (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
63
(proclaim2 BIT-NAND (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
64
(proclaim2 BIT-NOR (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
65
(proclaim2 BIT-NOT (T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
66
(proclaim2 BIT-ORC1 (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
67
(proclaim2 BIT-ORC2 (T T *) (ARRAY BIT) #.(flags ans set)) ;Mv touched?
68
(proclaim2 BIT-VECTOR-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
69
(proclaim2 BIT-XOR (T T *) (ARRAY BIT) #.(flags ans set )) ;Mv touched?
70
(proclaim2 BOOLE (FIXNUM INTEGER INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
71
(proclaim2 BOTH-CASE-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
72
(proclaim2 BOUNDP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
73
(proclaim2 BREAK (*) T #.(flags ans set touch-mv)) ;Mv touched?
74
(proclaim2 BUTLAST (T *) T #.(flags ans set touch-mv)) ;Mv touched?
75
(proclaim2 BYTE (FIXNUM FIXNUM) T #.(flags ans constantp)) ;Mv touched?
76
(proclaim2 BYTE-POSITION (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
77
(proclaim2 BYTE-SIZE (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
78
(proclaim2 CAAAAR (T) T #.(flags ans constantp)) ;Mv touched?
79
(proclaim2 CAAADR (T) T #.(flags ans constantp)) ;Mv touched?
80
(proclaim2 CAAAR (T) T #.(flags ans constantp)) ;Mv touched?
81
(proclaim2 CAADAR (T) T #.(flags ans constantp)) ;Mv touched?
82
(proclaim2 CAADDR (T) T #.(flags ans constantp)) ;Mv touched?
83
(proclaim2 CAADR (T) T #.(flags ans constantp)) ;Mv touched?
84
(proclaim2 CAAR (T) T #.(flags ans constantp)) ;Mv touched?
85
(proclaim2 CADAAR (T) T #.(flags ans constantp)) ;Mv touched?
86
(proclaim2 CADADR (T) T #.(flags ans constantp)) ;Mv touched?
87
(proclaim2 CADAR (T) T #.(flags ans constantp)) ;Mv touched?
88
(proclaim2 CADDAR (T) T #.(flags ans constantp)) ;Mv touched?
89
(proclaim2 CADDDR (T) T #.(flags ans constantp)) ;Mv touched?
90
(proclaim2 CADDR (T) T #.(flags ans constantp)) ;Mv touched?
91
(proclaim2 CADR (T) T #.(flags ans constantp)) ;Mv touched?
92
(proclaim2 CAR (T) T #.(flags ans constantp)) ;Mv touched?
93
(proclaim2 CDAAAR (T) T #.(flags ans constantp)) ;Mv touched?
94
(proclaim2 CDAADR (T) T #.(flags ans constantp)) ;Mv touched?
95
(proclaim2 CDAAR (T) T #.(flags ans constantp)) ;Mv touched?
96
(proclaim2 CDADAR (T) T #.(flags ans constantp)) ;Mv touched?
97
(proclaim2 CDADDR (T) T #.(flags ans constantp)) ;Mv touched?
98
(proclaim2 CDADR (T) T #.(flags ans constantp)) ;Mv touched?
99
(proclaim2 CDAR (T) T #.(flags ans constantp)) ;Mv touched?
100
(proclaim2 CDDAAR (T) T #.(flags ans constantp)) ;Mv touched?
101
(proclaim2 CDDADR (T) T #.(flags ans constantp)) ;Mv touched?
102
(proclaim2 CDDAR (T) T #.(flags ans constantp)) ;Mv touched?
103
(proclaim2 CDDDAR (T) T #.(flags ans constantp)) ;Mv touched?
104
(proclaim2 CDDDDR (T) T #.(flags ans constantp)) ;Mv touched?
105
(proclaim2 CDDDR (T) T #.(flags ans constantp)) ;Mv touched?
106
(proclaim2 CDDR (T) T #.(flags ans constantp)) ;Mv touched?
107
(proclaim2 CDR (T) T #.(flags ans constantp)) ;Mv touched?
108
(proclaim2 CEILING (T *) * #.(flags ans set mv touch-mv))
109
(proclaim2 CERROR (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
110
(proclaim2 CHAR (T FIXNUM) T #.(flags ans constantp)) ;Mv touched?
111
(proclaim2 CHAR-CODE (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
112
(proclaim2 CHAR-DOWNCASE (T) T #.(flags ans constantp)) ;Mv touched?
113
(proclaim2 CHAR-EQUAL (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
114
(proclaim2 CHAR-GREATERP (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
115
(proclaim2 CHAR-INT (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
116
(proclaim2 CHAR-LESSP (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
117
(proclaim2 CHAR-NAME (T) T #.(flags ans constantp)) ;Mv touched?
118
(proclaim2 CHAR-NOT-EQUAL (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
119
(proclaim2 CHAR-NOT-GREATERP (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
120
(proclaim2 CHAR-NOT-LESSP (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
121
(proclaim2 CHAR-UPCASE (T) T #.(flags ans constantp)) ;Mv touched?
122
(proclaim2 CHAR/= (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
123
(proclaim2 CHAR< (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
124
(proclaim2 CHAR<= (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
125
(proclaim2 CHAR= (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
126
(proclaim2 CHAR> (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
127
(proclaim2 CHAR>= (T *) BOOLEAN #.(flags ans constantp)) ;Mv touched?
128
(proclaim2 CHARACTER (T) T #.(flags ans constantp)) ;Mv touched?
129
(proclaim2 CHARACTERP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
130
(proclaim2 CIS (T) T #.(flags ans constantp)) ;Mv touched?
131
(proclaim2 CLEAR-INPUT (*) T #.(flags ans constantp)) ;Mv touched?
132
(proclaim2 CLEAR-OUTPUT (*) T #.(flags ans constantp)) ;Mv touched?
133
(proclaim2 CLOSE (T *) STREAM #.(flags ans set touch-mv)) ;Mv touched?
134
(proclaim2 CLRHASH (T) T #.(flags ans set touch-mv)) ;Mv touched?
135
(proclaim2 CODE-CHAR (FIXNUM) T #.(flags ans constantp)) ;Mv touched?
136
(proclaim2 COERCE (T T) T #.(flags ans constantp)) ;Mv touched?
137
(proclaim2 COMPILE (T *) * #.(flags ans set mv touch-mv))
138
(proclaim2 COMPILE-FILE (T *) * #.(flags ans set mv touch-mv))
139
(proclaim2 COMPILED-FUNCTION-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
140
(proclaim2 COMPLEX (T *) T #.(flags ans set touch-mv)) ;Mv touched?
141
(proclaim2 COMPLEXP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
142
(proclaim2 CONCATENATE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
143
(proclaim2 CONJUGATE (T) T #.(flags ans constantp)) ;Mv touched?
144
(proclaim2 CONS (T T) T #.(flags ans constantp)) ;Mv touched?
145
(proclaim2 CONSP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
146
(proclaim2 CONSTANTP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
147
(proclaim2 COPY-ALIST (T) T #.(flags ans constantp)) ;Mv touched?
148
(proclaim2 COPY-LIST (T) T #.(flags ans constantp)) ;Mv touched?
149
(proclaim2 COPY-READTABLE (*) T #.(flags ans constantp)) ;Mv touched?
150
(proclaim2 COPY-SEQ (T) T #.(flags ans constantp)) ;Mv touched?
151
(proclaim2 COPY-SYMBOL (T *) T #.(flags ans constantp)) ;Mv touched?
152
(proclaim2 COPY-TREE (T) T #.(flags ans constantp)) ;Mv touched?
153
(proclaim2 COS (T) T #.(flags ans constantp)) ;Mv touched?
154
(proclaim2 COSH (T) T #.(flags ans constantp)) ;Mv touched?
155
(proclaim2 COUNT (T T *) FIXNUM #.(flags ans constantp)) ;Mv touched?
156
(proclaim2 COUNT-IF (T T *) FIXNUM #.(flags ans set touch-mv)) ;Mv touched?
157
(proclaim2 COUNT-IF-NOT (T T *) FIXNUM #.(flags ans set touch-mv)) ;Mv touched?
158
(proclaim2 DECODE-UNIVERSAL-TIME (T *) * #.(flags ans set mv touch-mv))
159
(proclaim2 DELETE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
160
(proclaim2 DELETE-DUPLICATES (T *) T #.(flags ans set touch-mv)) ;Mv touched?
161
(proclaim2 DELETE-FILE (T) T #.(flags ans set touch-mv)) ;Mv touched?
162
(proclaim2 DELETE-IF (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
163
(proclaim2 DELETE-IF-NOT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
164
(proclaim2 DENOMINATOR (T) INTEGER #.(flags ans constantp)) ;Mv touched?
165
(proclaim2 DEPOSIT-FIELD (INTEGER T INTEGER) INTEGER #.(flags ans set)) ;Mv touched?
166
(proclaim2 DESCRIBE (T *) * #.(flags ans set mv touch-mv))
167
(proclaim2 DIGIT-CHAR (T *) T #.(flags ans constantp)) ;Mv touched?
168
(proclaim2 DIGIT-CHAR-P (T *) T #.(flags ans constantp)) ;Mv touched?
169
(proclaim2 DIRECTORY (T *) T #.(flags ans set touch-mv)) ;Mv touched?
170
(proclaim2 DIRECTORY-NAMESTRING (T) T #.(flags ans set touch-mv)) ;Mv touched?
171
(proclaim2 DOCUMENTATION (T T) T #.(flags ans constantp)) ;Mv touched?
172
(proclaim2 DPB (INTEGER T INTEGER) INTEGER #.(flags ans set )) ;Mv touched?
173
(proclaim2 DRIBBLE (*) T #.(flags ans set touch-mv)) ;Mv touched?
174
(proclaim2 ED (*) T #.(flags ans set touch-mv)) ;Mv touched?
175
(proclaim2 EIGHTH (T) T #.(flags ans constantp)) ;Mv touched?
176
(proclaim2 ELT (T FIXNUM) T #.(flags ans constantp)) ;Mv touched?
177
(proclaim2 ENCODE-UNIVERSAL-TIME (T T T T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
178
(proclaim2 ENDP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
179
(proclaim2 ENOUGH-NAMESTRING (T *) T #.(flags ans set touch-mv)) ;Mv touched?
180
(proclaim2 EQ (T T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
181
(proclaim2 EQL (T T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
182
(proclaim2 EQUAL (T T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
183
(proclaim2 EQUALP (T T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
184
(proclaim2 ERROR (T *) T #.(flags ans set touch-mv)) ;Mv touched?
185
(proclaim2 EVAL (T) * #.(flags ans set mv touch-mv))
186
(proclaim2 EVENP (INTEGER) BOOLEAN #.(flags ans constantp)) ;Mv touched?
187
(proclaim2 EVERY (T T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
188
(proclaim2 EXP (T) T #.(flags ans constantp)) ;Mv touched?
189
(proclaim2 EXPORT (T *) T #.(flags ans set touch-mv)) ;Mv touched?
190
(proclaim2 EXPT (T T) T #.(flags ans constantp)) ;Mv touched?
191
(proclaim2 FBOUNDP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
192
(proclaim2 FCEILING (T *) * #.(flags ans set mv touch-mv))
193
(proclaim2 FFLOOR (T *) * #.(flags ans set mv touch-mv))
194
(proclaim2 FIFTH (T) T #.(flags ans constantp)) ;Mv touched?
195
(proclaim2 FILE-AUTHOR (T) T #.(flags ans set touch-mv)) ;Mv touched?
196
(proclaim2 FILE-LENGTH (STREAM) T #.(flags ans set touch-mv)) ;Mv touched?
197
(proclaim2 FILE-NAMESTRING (T) T #.(flags ans set touch-mv)) ;Mv touched?
198
(proclaim2 FILE-POSITION (T *) T #.(flags ans set touch-mv)) ;Mv touched?
199
(proclaim2 FILE-WRITE-DATE (T) T #.(flags ans set touch-mv)) ;Mv touched?
200
(proclaim2 FILL (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
201
(proclaim2 FILL-POINTER (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
202
(proclaim2 FIND (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
203
(proclaim2 FIND-ALL-SYMBOLS (T) T #.(flags ans set touch-mv)) ;Mv touched?
204
(proclaim2 FIND-IF (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
205
(proclaim2 FIND-IF-NOT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
206
(proclaim2 FIND-PACKAGE (T) T #.(flags ans set touch-mv)) ;Mv touched?
207
(proclaim2 FIND-SYMBOL (T *) * #.(flags ans set mv touch-mv))
208
(proclaim2 FINISH-OUTPUT (*) T #.(flags ans set touch-mv)) ;Mv touched?
209
(proclaim2 FIRST (T) T #.(flags ans constantp)) ;Mv touched?
210
(proclaim2 FLOAT-DIGITS (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
211
(proclaim2 FLOAT-PRECISION (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
212
(proclaim2 FLOAT-RADIX (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
213
(proclaim2 FLOAT-SIGN (T *) T #.(flags ans constantp)) ;Mv touched?
214
(proclaim2 FLOATP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
215
(proclaim2 FLOOR (T *) * #.(flags ans set mv touch-mv))
216
(proclaim2 FMAKUNBOUND (T) T #.(flags ans set touch-mv)) ;Mv touched?
217
(proclaim2 FORCE-OUTPUT (*) T #.(flags ans set touch-mv)) ;Mv touched?
218
(proclaim2 FORMAT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
219
(proclaim2 FOURTH (T) T #.(flags ans constantp)) ;Mv touched?
220
(proclaim2 FRESH-LINE (*) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
221
(proclaim2 FROUND (T *) * #.(flags ans set mv touch-mv))
222
(proclaim2 FTRUNCATE (T *) * #.(flags ans set mv touch-mv))
223
(proclaim2 FUNCALL (T *) * #.(flags ans set mv touch-mv))
224
(proclaim2 FUNCTIONP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
225
(proclaim2 GCD (*) T #.(flags ans set touch-mv)) ;Mv touched?
226
(proclaim2 GENSYM (*) T #.(flags ans set touch-mv)) ;Mv touched?
227
(proclaim2 GENTEMP (*) T #.(flags ans set touch-mv)) ;Mv touched?
228
(proclaim2 GET (T T *) T #.(flags ans constantp)) ;Mv touched?
229
(proclaim2 GET-DECODED-TIME NIL * #.(flags ans set mv touch-mv))
230
(proclaim2 GET-DISPATCH-MACRO-CHARACTER (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
231
(proclaim2 GET-INTERNAL-REAL-TIME NIL T #.(flags ans set touch-mv)) ;Mv touched?
232
(proclaim2 GET-INTERNAL-RUN-TIME NIL T #.(flags ans set touch-mv)) ;Mv touched?
233
(proclaim2 GET-MACRO-CHARACTER (T *) * #.(flags ans set mv touch-mv))
234
(proclaim2 GET-OUTPUT-STREAM-STRING (STREAM) T #.(flags ans set touch-mv)) ;Mv touched?
235
(proclaim2 GET-PROPERTIES (T T) * #.(flags ans set mv touch-mv))
236
(proclaim2 GET-SETF-METHOD (T *) * #.(flags ans set mv touch-mv))
237
(proclaim2 GET-SETF-METHOD-MULTIPLE-VALUE (T *) * #.(flags ans set mv touch-mv))
238
(proclaim2 GET-UNIVERSAL-TIME NIL T #.(flags ans set touch-mv)) ;Mv touched?
239
(proclaim2 GETF (T T *) T #.(flags ans constantp)) ;Mv touched?
240
(proclaim2 GETHASH (T T *) * #.(flags ans set mv touch-mv))
241
(proclaim2 GRAPHIC-CHAR-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
242
(proclaim2 HASH-TABLE-COUNT (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
243
(proclaim2 HOST-NAMESTRING (T) T #.(flags ans set touch-mv)) ;Mv touched?
244
(proclaim2 IDENTITY (T) T #.(flags ans constantp)) ;Mv touched?
245
(proclaim2 IMAGPART (T) T #.(flags ans constantp)) ;Mv touched?
246
(proclaim2 IMPORT (T *) T #.(flags ans set touch-mv)) ;Mv touched?
247
(proclaim2 IN-PACKAGE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
248
(proclaim2 INPUT-STREAM-P (STREAM) BOOLEAN #.(flags ans constantp)) ;Mv touched?
249
(proclaim2 INSPECT (T) * #.(flags ans set mv touch-mv))
250
(proclaim2 INTEGER-DECODE-FLOAT (T) * #.(flags ans set mv touch-mv))
251
(proclaim2 INTEGER-LENGTH (INTEGER) FIXNUM #.(flags ans constantp)) ;Mv touched?
252
(proclaim2 INTEGERP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
253
(proclaim2 INTERN (T *) * #.(flags ans set mv touch-mv))
254
(proclaim2 INTERSECTION (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
255
(proclaim2 ISQRT (T) T #.(flags ans set touch-mv)) ;Mv touched?
256
(proclaim2 KEYWORDP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
257
(proclaim2 LCM (*) T #.(flags ans set touch-mv)) ;Mv touched?
258
(proclaim2 LDB (T INTEGER) INTEGER #.(flags ans set )) ;Mv touched?
259
(proclaim2 LDB-TEST (T INTEGER) BOOLEAN #.(flags ans constantp)) ;Mv touched?
260
(proclaim2 LDIFF (T T) T #.(flags ans set touch-mv)) ;Mv touched?
261
(proclaim2 LENGTH (T) FIXNUM #.(flags ans constantp)) ;Mv touched?
262
(proclaim2 LISP-IMPLEMENTATION-VERSION NIL T #.(flags ans set touch-mv)) ;Mv touched?
263
(proclaim2 LIST (*) T #.(flags ans constantp)) ;Mv touched?
264
(proclaim2 LIST* (T *) T #.(flags ans constantp)) ;Mv touched?
265
(proclaim2 LIST-ALL-PACKAGES NIL T #.(flags ans set touch-mv)) ;Mv touched?
266
(proclaim2 LIST-LENGTH (T) T #.(flags ans set touch-mv)) ;Mv touched?
267
(proclaim2 LISTEN (*) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
268
(proclaim2 LISTP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
269
(proclaim2 LOAD (T *) T #.(flags ans set touch-mv)) ;Mv touched?
270
(proclaim2 LOG (T *) T #.(flags ans set touch-mv)) ;Mv touched?
271
(proclaim2 LOGAND (*) INTEGER #.(flags ans constantp)) ;Mv touched?
272
(proclaim2 LOGANDC1 (INTEGER INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
273
(proclaim2 LOGANDC2 (INTEGER INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
274
(proclaim2 LOGBITP (FIXNUM INTEGER) BOOLEAN #.(flags ans constantp)) ;Mv touched?
275
(proclaim2 LOGCOUNT (INTEGER) FIXNUM #.(flags ans constantp)) ;Mv touched?
276
(proclaim2 LOGEQV (*) INTEGER #.(flags ans constantp)) ;Mv touched?
277
(proclaim2 LOGIOR (*) INTEGER #.(flags ans constantp)) ;Mv touched?
278
(proclaim2 LOGNAND (INTEGER INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
279
(proclaim2 LOGNOR (INTEGER INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
280
(proclaim2 LOGNOT (INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
281
(proclaim2 LOGORC1 (INTEGER INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
282
(proclaim2 LOGORC2 (INTEGER INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
283
(proclaim2 LOGTEST (INTEGER INTEGER) BOOLEAN #.(flags ans constantp)) ;Mv touched?
284
(proclaim2 LOGXOR (*) INTEGER #.(flags ans set touch-mv)) ;Mv touched?
285
(proclaim2 LONG-SITE-NAME NIL T #.(flags ans set touch-mv)) ;Mv touched?
286
(proclaim2 LOWER-CASE-P (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
287
(proclaim2 MACHINE-INSTANCE NIL T #.(flags ans set touch-mv)) ;Mv touched?
288
(proclaim2 MACHINE-TYPE NIL T #.(flags ans set touch-mv)) ;Mv touched?
289
(proclaim2 MACHINE-VERSION NIL T #.(flags ans set touch-mv)) ;Mv touched?
290
(proclaim2 MACRO-FUNCTION (T) T #.(flags ans constantp)) ;Mv touched?
291
(proclaim2 MACROEXPAND (T *) * #.(flags ans set mv touch-mv))
292
(proclaim2 MACROEXPAND-1 (T *) * #.(flags ans set mv touch-mv))
293
(proclaim2 MAKE-BROADCAST-STREAM (*) STREAM #.(flags ans set touch-mv)) ;Mv touched?
294
(proclaim2 MAKE-CONCATENATED-STREAM (*) STREAM #.(flags ans set touch-mv)) ;Mv touched?
295
(proclaim2 MAKE-DISPATCH-MACRO-CHARACTER (T *) T #.(flags ans set touch-mv)) ;Mv touched?
296
(proclaim2 MAKE-ECHO-STREAM (STREAM STREAM) STREAM #.(flags ans set touch-mv)) ;Mv touched?
297
(proclaim2 MAKE-HASH-TABLE (*) T #.(flags ans set touch-mv)) ;Mv touched?
298
(proclaim2 MAKE-LIST (T *) T #.(flags ans set touch-mv)) ;Mv touched?
299
(proclaim2 MAKE-PACKAGE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
300
(proclaim2 MAKE-PATHNAME (*) T #.(flags ans set touch-mv)) ;Mv touched?
301
(proclaim2 MAKE-RANDOM-STATE (*) T #.(flags ans set touch-mv)) ;Mv touched?
302
(proclaim2 MAKE-SEQUENCE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
303
(proclaim2 MAKE-STRING (T *) T #.(flags ans set touch-mv)) ;Mv touched?
304
(proclaim2 MAKE-STRING-INPUT-STREAM (T *) STREAM #.(flags ans set touch-mv)) ;Mv touched?
305
(proclaim2 MAKE-STRING-OUTPUT-STREAM NIL STREAM #.(flags ans set touch-mv)) ;Mv touched?
306
(proclaim2 MAKE-SYMBOL (T) T #.(flags ans set touch-mv)) ;Mv touched?
307
(proclaim2 MAKE-SYNONYM-STREAM (T) STREAM #.(flags ans set touch-mv)) ;Mv touched?
308
(proclaim2 MAKE-TWO-WAY-STREAM (STREAM STREAM) STREAM #.(flags ans set touch-mv)) ;Mv touched?
309
(proclaim2 MAKUNBOUND (T) T #.(flags ans set )) ;Mv touched?
310
(proclaim2 MAP (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
311
(proclaim2 MAPC (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
312
(proclaim2 MAPCAN (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
313
(proclaim2 MAPCAR (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
314
(proclaim2 MAPCON (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
315
(proclaim2 MAPHASH (T T) T #.(flags ans set touch-mv)) ;Mv touched?
316
(proclaim2 MAPL (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
317
(proclaim2 MAPLIST (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
318
(proclaim2 MASK-FIELD (T INTEGER) INTEGER #.(flags ans constantp)) ;Mv touched?
319
(proclaim2 MAX (T *) T #.(flags ans constantp)) ;Mv touched?
320
(proclaim2 MEMBER (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
321
(proclaim2 MEMBER-IF (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
322
(proclaim2 MEMBER-IF-NOT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
323
(proclaim2 MERGE (T T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
324
(proclaim2 MERGE-PATHNAMES (T *) T #.(flags ans set touch-mv)) ;Mv touched?
325
(proclaim2 MIN (T *) T #.(flags ans constantp)) ;Mv touched?
326
(proclaim2 MINUSP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
327
(proclaim2 MISMATCH (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
328
(proclaim2 MOD (T T) T #.(flags ans touch-mv)) ;Mv touched?
329
(proclaim2 NAME-CHAR (T) T #.(flags ans set touch-mv)) ;Mv touched?
330
(proclaim2 NAMESTRING (T) T #.(flags ans set touch-mv)) ;Mv touched?
331
(proclaim2 NBUTLAST (T *) T #.(flags ans set touch-mv)) ;Mv touched?
332
(proclaim2 NCONC (*) T #.(flags ans set touch-mv)) ;Mv touched?
333
(proclaim2 NINTERSECTION (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
334
(proclaim2 NINTH (T) T #.(flags ans constantp)) ;Mv touched?
335
(proclaim2 NOT (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
336
(proclaim2 NOTANY (T T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
337
(proclaim2 NOTEVERY (T T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
338
(proclaim2 NRECONC (T T) T #.(flags ans set touch-mv)) ;Mv touched?
339
(proclaim2 NREVERSE (T) T #.(flags ans set )) ;Mv touched?
340
(proclaim2 NSET-DIFFERENCE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
341
(proclaim2 NSET-EXCLUSIVE-OR (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
342
(proclaim2 NSTRING-CAPITALIZE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
343
(proclaim2 NSTRING-DOWNCASE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
344
(proclaim2 NSTRING-UPCASE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
345
(proclaim2 NSUBLIS (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
346
(proclaim2 NSUBST (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
347
(proclaim2 NSUBST-IF (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
348
(proclaim2 NSUBST-IF-NOT (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
349
(proclaim2 NSUBSTITUTE (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
350
(proclaim2 NSUBSTITUTE-IF (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
351
(proclaim2 NSUBSTITUTE-IF-NOT (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
352
(proclaim2 NTH (FIXNUM T) T #.(flags ans constantp)) ;Mv touched?
353
(proclaim2 NTHCDR (FIXNUM T) T #.(flags ans constantp)) ;Mv touched?
354
(proclaim2 NULL (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
355
(proclaim2 NUMBERP (T) BOOLEAN #.(flags ans constantp)) ;Mv touched?
356
(proclaim2 NUMERATOR (T) INTEGER #.(flags ans constantp)) ;Mv touched?
357
(proclaim2 NUNION (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
358
(proclaim2 ODDP (INTEGER) BOOLEAN #.(flags ans constantp)) ;Mv touched?
359
(proclaim2 OPEN (T *) T #.(flags ans set touch-mv)) ;Mv touched?
360
(proclaim2 OUTPUT-STREAM-P (STREAM) BOOLEAN #.(flags ans constantp)) ;Mv touched?
361
(proclaim2 PACKAGE-NAME (T) T #.(flags ans constantp)) ;Mv touched?
362
(proclaim2 PACKAGE-NICKNAMES (T) T #.(flags ans constantp)) ;Mv touched?
363
(proclaim2 PACKAGE-SHADOWING-SYMBOLS (T) T #.(flags ans constantp)) ;Mv touched?
364
(proclaim2 PACKAGE-USE-LIST (T) T #.(flags ans constantp)) ;Mv touched?
365
(proclaim2 PACKAGE-USED-BY-LIST (T) T #.(flags ans constantp)) ;Mv touched?
366
(proclaim2 PAIRLIS (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
367
(proclaim2 PARSE-INTEGER (T *) T #.(flags ans set touch-mv)) ;Mv touched?
368
(proclaim2 PARSE-NAMESTRING (T *) * #.(flags ans set mv touch-mv))
369
(proclaim2 PATHNAME (T) T #.(flags ans set touch-mv)) ;Mv touched?
370
(proclaim2 PATHNAME-DEVICE (T) T #.(flags ans set touch-mv)) ;Mv touched?
371
(proclaim2 PATHNAME-DIRECTORY (T) T #.(flags ans set touch-mv)) ;Mv touched?
372
(proclaim2 PATHNAME-HOST (T) T #.(flags ans set touch-mv)) ;Mv touched?
373
(proclaim2 PATHNAME-NAME (T) T #.(flags ans set touch-mv)) ;Mv touched?
374
(proclaim2 PATHNAME-TYPE (T) T #.(flags ans set touch-mv)) ;Mv touched?
375
(proclaim2 PATHNAME-VERSION (T) T #.(flags ans set touch-mv)) ;Mv touched?
376
(proclaim2 PEEK-CHAR (*) T #.(flags ans set touch-mv)) ;Mv touched?
377
(proclaim2 PHASE (T) T #.(flags ans set touch-mv)) ;Mv touched?
378
(proclaim2 PLUSP (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
379
(proclaim2 POSITION (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
380
(proclaim2 POSITION-IF (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
381
(proclaim2 POSITION-IF-NOT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
382
(proclaim2 PRIN1 (T *) T #.(flags ans set touch-mv)) ;Mv touched?
383
(proclaim2 PRIN1-TO-STRING (T) T #.(flags ans set touch-mv)) ;Mv touched?
384
(proclaim2 PRINC (T *) T #.(flags ans set )) ;Mv touched?
385
(proclaim2 PRINC-TO-STRING (T) T #.(flags ans set touch-mv)) ;Mv touched?
386
(proclaim2 PRINT (T *) T #.(flags ans set touch-mv)) ;Mv touched?
387
(proclaim2 PROBE-FILE (T) T #.(flags ans set touch-mv)) ;Mv touched?
388
(proclaim2 RANDOM (T *) T #.(flags ans set touch-mv)) ;Mv touched?
389
(proclaim2 RASSOC (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
390
(proclaim2 RASSOC-IF (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
391
(proclaim2 RASSOC-IF-NOT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
392
(proclaim2 RATIONAL (T) T #.(flags ans set touch-mv)) ;Mv touched?
393
(proclaim2 RATIONALIZE (T) T #.(flags ans set touch-mv)) ;Mv touched?
394
(proclaim2 RATIONALP (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
395
(proclaim2 READ (*) T #.(flags ans set touch-mv)) ;Mv touched?
396
(proclaim2 READ-BYTE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
397
(proclaim2 READ-CHAR (*) T #.(flags ans set touch-mv)) ;Mv touched?
398
(proclaim2 READ-CHAR-NO-HANG (*) T #.(flags ans set touch-mv)) ;Mv touched?
399
(proclaim2 READ-DELIMITED-LIST (T *) T #.(flags ans set touch-mv)) ;Mv touched?
400
(proclaim2 READ-FROM-STRING (T *) T #.(flags ans set touch-mv)) ;Mv touched?
401
(proclaim2 READ-LINE (*) * #.(flags ans set mv touch-mv))
402
(proclaim2 READ-PRESERVING-WHITESPACE (*) T #.(flags ans set touch-mv)) ;Mv touched?
403
(proclaim2 REALPART (T) T #.(flags ans set touch-mv)) ;Mv touched?
404
(proclaim2 REDUCE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
405
(proclaim2 REM (T T) T #.(flags ans set touch-mv)) ;Mv touched?
406
(proclaim2 REMHASH (T T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
407
(proclaim2 REMOVE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
408
(proclaim2 REMOVE-DUPLICATES (T *) T #.(flags ans set touch-mv)) ;Mv touched?
409
(proclaim2 REMOVE-IF (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
410
(proclaim2 REMOVE-IF-NOT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
411
(proclaim2 REMPROP (T T) T #.(flags ans set )) ;Mv touched?
412
(proclaim2 RENAME-FILE (T T) * #.(flags ans set mv touch-mv))
413
(proclaim2 RENAME-PACKAGE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
414
(proclaim2 REPLACE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
415
(proclaim2 REST (T) T #.(flags ans set touch-mv)) ;Mv touched?
416
(proclaim2 REVAPPEND (T T) T #.(flags ans set touch-mv)) ;Mv touched?
417
(proclaim2 REVERSE (T) T #.(flags ans set touch-mv)) ;Mv touched?
418
(proclaim2 ROOM (*) T #.(flags ans set touch-mv)) ;Mv touched?
419
(proclaim2 ROUND (T *) * #.(flags ans set mv touch-mv))
420
(proclaim2 RPLACA (T T) T #.(flags ans set touch-mv)) ;Mv touched?
421
(proclaim2 RPLACD (T T) T #.(flags ans set touch-mv)) ;Mv touched?
422
(proclaim2 SBIT (T *) BIT #.(flags ans set touch-mv)) ;Mv touched?
423
(proclaim2 SCALE-FLOAT (T T) T #.(flags ans set touch-mv)) ;Mv touched?
424
(proclaim2 SCHAR (T FIXNUM) T #.(flags ans set touch-mv)) ;Mv touched?
425
(proclaim2 SEARCH (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
426
(proclaim2 SECOND (T) T #.(flags ans set touch-mv)) ;Mv touched?
427
(proclaim2 SET (T T) T #.(flags ans set touch-mv)) ;Mv touched?
428
(proclaim2 SET-DIFFERENCE (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
429
(proclaim2 SET-DISPATCH-MACRO-CHARACTER (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
430
(proclaim2 SET-EXCLUSIVE-OR (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
431
(proclaim2 SET-MACRO-CHARACTER (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
432
(proclaim2 SET-SYNTAX-FROM-CHAR (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
433
(proclaim2 SEVENTH (T) T #.(flags ans set touch-mv)) ;Mv touched?
434
(proclaim2 SHADOW (T *) T #.(flags ans set touch-mv)) ;Mv touched?
435
(proclaim2 SHADOWING-IMPORT (T *) T #.(flags ans set touch-mv)) ;Mv touched?
436
(proclaim2 SHORT-SITE-NAME NIL T #.(flags ans set touch-mv)) ;Mv touched?
437
(proclaim2 SIGNUM (T) T #.(flags ans set touch-mv)) ;Mv touched?
438
(proclaim2 SIMPLE-BIT-VECTOR-P (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
439
(proclaim2 SIMPLE-STRING-P (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
440
(proclaim2 SIMPLE-VECTOR-P (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
441
(proclaim2 SIN (T) T #.(flags ans set touch-mv)) ;Mv touched?
442
(proclaim2 SINH (T) T #.(flags ans set touch-mv)) ;Mv touched?
443
(proclaim2 SIXTH (T) T #.(flags ans set touch-mv)) ;Mv touched?
444
(proclaim2 SLEEP (T) T #.(flags ans set touch-mv)) ;Mv touched?
445
(proclaim2 SOFTWARE-TYPE NIL T #.(flags ans set touch-mv)) ;Mv touched?
446
(proclaim2 SOFTWARE-VERSION NIL T #.(flags ans set touch-mv)) ;Mv touched?
447
(proclaim2 SOME (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
448
(proclaim2 SORT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
449
(proclaim2 SPECIAL-FORM-P (T) T #.(flags ans set touch-mv)) ;Mv touched?
450
(proclaim2 SQRT (T) T #.(flags ans set touch-mv)) ;Mv touched?
451
(proclaim2 STABLE-SORT (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
452
(proclaim2 STANDARD-CHAR-P (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
453
(proclaim2 STREAM-ELEMENT-TYPE (STREAM) T #.(flags ans set touch-mv)) ;Mv touched?
454
(proclaim2 STRING (T) T #.(flags ans set touch-mv)) ;Mv touched?
455
(proclaim2 STRING-CAPITALIZE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
456
(proclaim2 STRING-DOWNCASE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
457
(proclaim2 STRING-EQUAL (T T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
458
(proclaim2 STRING-GREATERP (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
459
(proclaim2 STRING-LEFT-TRIM (T T) T #.(flags ans set touch-mv)) ;Mv touched?
460
(proclaim2 STRING-LESSP (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
461
(proclaim2 STRING-NOT-EQUAL (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
462
(proclaim2 STRING-NOT-GREATERP (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
463
(proclaim2 STRING-NOT-LESSP (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
464
(proclaim2 STRING-RIGHT-TRIM (T T) T #.(flags ans set touch-mv)) ;Mv touched?
465
(proclaim2 STRING-TRIM (T T) T #.(flags ans set touch-mv)) ;Mv touched?
466
(proclaim2 STRING-UPCASE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
467
(proclaim2 STRING/= (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
468
(proclaim2 STRING< (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
469
(proclaim2 STRING<= (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
470
(proclaim2 STRING= (T T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
471
(proclaim2 STRING> (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
472
(proclaim2 STRING>= (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
473
(proclaim2 STRINGP (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
474
(proclaim2 SUBLIS (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
475
(proclaim2 SUBSEQ (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
476
(proclaim2 SUBSETP (T T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
477
(proclaim2 SUBST (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
478
(proclaim2 SUBST-IF (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
479
(proclaim2 SUBST-IF-NOT (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
480
(proclaim2 SUBSTITUTE (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
481
(proclaim2 SUBSTITUTE-IF (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
482
(proclaim2 SUBSTITUTE-IF-NOT (T T T *) T #.(flags ans set touch-mv)) ;Mv touched?
483
(proclaim2 SUBTYPEP (T T) * #.(flags ans set mv touch-mv))
484
(proclaim2 SVREF ((VECTOR T) FIXNUM) T #.(flags ans set touch-mv)) ;Mv touched?
485
(proclaim2 SXHASH (T) FIXNUM #.(flags ans set touch-mv)) ;Mv touched?
486
(proclaim2 SYMBOL-FUNCTION (T) T #.(flags ans set touch-mv)) ;Mv touched?
487
(proclaim2 SYMBOL-NAME (T) T #.(flags ans set touch-mv)) ;Mv touched?
488
(proclaim2 SYMBOL-PACKAGE (T) T #.(flags ans set touch-mv)) ;Mv touched?
489
(proclaim2 SYMBOL-PLIST (T) T #.(flags ans set touch-mv)) ;Mv touched?
490
(proclaim2 SYMBOL-VALUE (T) T #.(flags ans set touch-mv)) ;Mv touched?
491
(proclaim2 SYMBOLP (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
492
(proclaim2 TAN (T) T #.(flags ans set touch-mv)) ;Mv touched?
493
(proclaim2 TANH (T) T #.(flags ans set touch-mv)) ;Mv touched?
494
(proclaim2 TENTH (T) T #.(flags ans set touch-mv)) ;Mv touched?
495
(proclaim2 TERPRI (*) T #.(flags ans set touch-mv)) ;Mv touched?
496
(proclaim2 THIRD (T) T #.(flags ans set touch-mv)) ;Mv touched?
497
(proclaim2 TREE-EQUAL (T T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
498
(proclaim2 TRUENAME (T) T #.(flags ans set touch-mv)) ;Mv touched?
499
(proclaim2 TRUNCATE (T *) * #.(flags ans set mv touch-mv))
500
(proclaim2 TYPE-OF (T) T #.(flags ans set touch-mv)) ;Mv touched?
501
(proclaim2 TYPEP (T T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
502
(proclaim2 UNEXPORT (T *) T #.(flags ans set touch-mv)) ;Mv touched?
503
(proclaim2 UNINTERN (T *) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
504
(proclaim2 UNION (T T *) T #.(flags ans set touch-mv)) ;Mv touched?
505
(proclaim2 UNREAD-CHAR (T *) T #.(flags ans set touch-mv)) ;Mv touched?
506
(proclaim2 UNUSE-PACKAGE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
507
(proclaim2 UPPER-CASE-P (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
508
(proclaim2 USE-PACKAGE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
509
(proclaim2 USER-HOMEDIR-PATHNAME (*) T #.(flags ans set touch-mv)) ;Mv touched?
510
(proclaim2 VALUES (*) * #.(flags ans set mv touch-mv))
511
(proclaim2 VALUES-LIST (T) * #.(flags ans set mv touch-mv))
512
(proclaim2 VECTOR (*) (VECTOR T) #.(flags ans set touch-mv)) ;Mv touched?
513
(proclaim2 VECTOR-POP (T) T #.(flags ans set touch-mv)) ;Mv touched?
514
(proclaim2 VECTOR-PUSH (T T) T #.(flags ans set touch-mv)) ;Mv touched?
515
(proclaim2 VECTOR-PUSH-EXTEND (T T *) FIXNUM #.(flags ans set touch-mv)) ;Mv touched?
516
(proclaim2 VECTORP (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
517
(proclaim2 WARN (T *) T #.(flags ans set touch-mv)) ;Mv touched?
518
(proclaim2 WRITE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
519
(proclaim2 WRITE-BYTE (INTEGER STREAM) INTEGER #.(flags ans set touch-mv)) ;Mv touched?
520
(proclaim2 WRITE-CHAR (T *) T #.(flags ans set touch-mv)) ;Mv touched?
521
(proclaim2 WRITE-LINE (T *) T #.(flags ans set touch-mv)) ;Mv touched?
522
(proclaim2 WRITE-STRING (T *) T #.(flags ans set touch-mv)) ;Mv touched?
523
(proclaim2 WRITE-TO-STRING (T *) T #.(flags ans set touch-mv)) ;Mv touched?
524
(proclaim2 Y-OR-N-P (*) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
525
(proclaim2 YES-OR-NO-P (*) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
526
(proclaim2 ZEROP (T) BOOLEAN #.(flags ans set touch-mv)) ;Mv touched?
529
(proclaim2 si::structure-ref (t t fixnum) t #.(flags ans))
530
(proclaim2 si::structure-set (t t fixnum t) t #.(flags ans set))