source: trunk/source/tests/ansi-tests/cl-symbols.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 12 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 78.1 KB
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Sun Mar 15 13:19:57 1998
4;;;; Contains: Test presence of symbols in the CL package,
5;;;;           and symbol-related functions
6
7(in-package :cl-test)
8
9(declaim (optimize (safety 3)))
10
11;;; Test for the presence of every darned symbol
12;;; the standard says should be in the CL package.
13;;; Also, test that they have no prohibited plist indicators (section 11.1.2.1.1)
14
15(deftest symbol-&allow-other-keys (test-if-not-in-cl-package "&allow-other-keys") nil)
16(deftest symbol-&aux (test-if-not-in-cl-package "&aux") nil)
17(deftest symbol-&body (test-if-not-in-cl-package "&body") nil)
18(deftest symbol-&environment (test-if-not-in-cl-package "&environment") nil)
19(deftest symbol-&key (test-if-not-in-cl-package "&key") nil)
20(deftest symbol-&optional (test-if-not-in-cl-package "&optional") nil)
21(deftest symbol-&rest (test-if-not-in-cl-package "&rest") nil)
22(deftest symbol-&whole (test-if-not-in-cl-package "&whole") nil)
23(deftest symbol-* (test-if-not-in-cl-package "*") nil)
24(deftest symbol-** (test-if-not-in-cl-package "**") nil)
25(deftest symbol-*** (test-if-not-in-cl-package "***") nil)
26(deftest symbol-*break-on-signals* (test-if-not-in-cl-package "*break-on-signals*") nil)
27(deftest symbol-*compile-file-pathname* (test-if-not-in-cl-package "*compile-file-pathname*") nil)
28(deftest symbol-*compile-file-truename* (test-if-not-in-cl-package "*compile-file-truename*") nil)
29(deftest symbol-*compile-print* (test-if-not-in-cl-package "*compile-print*") nil)
30(deftest symbol-*compile-verbose* (test-if-not-in-cl-package "*compile-verbose*") nil)
31(deftest symbol-*debug-io* (test-if-not-in-cl-package "*debug-io*") nil)
32(deftest symbol-*debugger-hook* (test-if-not-in-cl-package "*debugger-hook*") nil)
33(deftest symbol-*default-pathname-defaults* (test-if-not-in-cl-package "*default-pathname-defaults*") nil)
34(deftest symbol-*error-output* (test-if-not-in-cl-package "*error-output*") nil)
35(deftest symbol-*features* (test-if-not-in-cl-package "*features*") nil)
36(deftest symbol-*gensym-counter* (test-if-not-in-cl-package "*gensym-counter*") nil)
37(deftest symbol-*load-pathname* (test-if-not-in-cl-package "*load-pathname*") nil)
38(deftest symbol-*load-print* (test-if-not-in-cl-package "*load-print*") nil)
39(deftest symbol-*load-truename* (test-if-not-in-cl-package "*load-truename*") nil)
40(deftest symbol-*load-verbose* (test-if-not-in-cl-package "*load-verbose*") nil)
41(deftest symbol-*macroexpand-hook* (test-if-not-in-cl-package "*macroexpand-hook*") nil)
42(deftest symbol-*modules* (test-if-not-in-cl-package "*modules*") nil)
43(deftest symbol-*package* (test-if-not-in-cl-package "*package*") nil)
44(deftest symbol-*print-array* (test-if-not-in-cl-package "*print-array*") nil)
45(deftest symbol-*print-base* (test-if-not-in-cl-package "*print-base*") nil)
46(deftest symbol-*print-case* (test-if-not-in-cl-package "*print-case*") nil)
47(deftest symbol-*print-circle* (test-if-not-in-cl-package "*print-circle*") nil)
48(deftest symbol-*print-escape* (test-if-not-in-cl-package "*print-escape*") nil)
49(deftest symbol-*print-gensym* (test-if-not-in-cl-package "*print-gensym*") nil)
50(deftest symbol-*print-length* (test-if-not-in-cl-package "*print-length*") nil)
51(deftest symbol-*print-level* (test-if-not-in-cl-package "*print-level*") nil)
52(deftest symbol-*print-lines* (test-if-not-in-cl-package "*print-lines*") nil)
53(deftest symbol-*print-miser-width* (test-if-not-in-cl-package "*print-miser-width*") nil)
54(deftest symbol-*print-pprint-dispatch* (test-if-not-in-cl-package "*print-pprint-dispatch*") nil)
55(deftest symbol-*print-pretty* (test-if-not-in-cl-package "*print-pretty*") nil)
56(deftest symbol-*print-radix* (test-if-not-in-cl-package "*print-radix*") nil)
57(deftest symbol-*print-readably* (test-if-not-in-cl-package "*print-readably*") nil)
58(deftest symbol-*print-right-margin* (test-if-not-in-cl-package "*print-right-margin*") nil)
59(deftest symbol-*query-io* (test-if-not-in-cl-package "*query-io*") nil)
60(deftest symbol-*random-state* (test-if-not-in-cl-package "*random-state*") nil)
61(deftest symbol-*read-base* (test-if-not-in-cl-package "*read-base*") nil)
62(deftest symbol-*read-default-float-format* (test-if-not-in-cl-package "*read-default-float-format*") nil)
63(deftest symbol-*read-eval* (test-if-not-in-cl-package "*read-eval*") nil)
64(deftest symbol-*read-suppress* (test-if-not-in-cl-package "*read-suppress*") nil)
65(deftest symbol-*readtable* (test-if-not-in-cl-package "*readtable*") nil)
66(deftest symbol-*standard-input* (test-if-not-in-cl-package "*standard-input*") nil)
67(deftest symbol-*standard-output* (test-if-not-in-cl-package "*standard-output*") nil)
68(deftest symbol-*terminal-io* (test-if-not-in-cl-package "*terminal-io*") nil)
69(deftest symbol-*trace-output* (test-if-not-in-cl-package "*trace-output*") nil)
70(deftest symbol-+ (test-if-not-in-cl-package "+") nil)
71(deftest symbol-++ (test-if-not-in-cl-package "++") nil)
72(deftest symbol-+++ (test-if-not-in-cl-package "+++") nil)
73(deftest symbol-- (test-if-not-in-cl-package "-") nil)
74(deftest symbol-/ (test-if-not-in-cl-package "/") nil)
75(deftest symbol-// (test-if-not-in-cl-package "//") nil)
76(deftest symbol-/// (test-if-not-in-cl-package "///") nil)
77(deftest symbol-/= (test-if-not-in-cl-package "/=") nil)
78(deftest symbol-1+ (test-if-not-in-cl-package "1+") nil)
79(deftest symbol-1- (test-if-not-in-cl-package "1-") nil)
80(deftest symbol-< (test-if-not-in-cl-package "<") nil)
81(deftest symbol-<= (test-if-not-in-cl-package "<=") nil)
82(deftest symbol-= (test-if-not-in-cl-package "=") nil)
83(deftest symbol-> (test-if-not-in-cl-package ">") nil)
84(deftest symbol->= (test-if-not-in-cl-package ">=") nil)
85(deftest symbol-abort (test-if-not-in-cl-package "abort") nil)
86(deftest symbol-abs (test-if-not-in-cl-package "abs") nil)
87(deftest symbol-acons (test-if-not-in-cl-package "acons") nil)
88(deftest symbol-acos (test-if-not-in-cl-package "acos") nil)
89(deftest symbol-acosh (test-if-not-in-cl-package "acosh") nil)
90(deftest symbol-add-method (test-if-not-in-cl-package "add-method") nil)
91(deftest symbol-adjoin (test-if-not-in-cl-package "adjoin") nil)
92(deftest symbol-adjust-array (test-if-not-in-cl-package "adjust-array") nil)
93(deftest symbol-adjustable-array-p (test-if-not-in-cl-package "adjustable-array-p") nil)
94(deftest symbol-allocate-instance (test-if-not-in-cl-package "allocate-instance") nil)
95(deftest symbol-alpha-char-p (test-if-not-in-cl-package "alpha-char-p") nil)
96(deftest symbol-alphanumericp (test-if-not-in-cl-package "alphanumericp") nil)
97(deftest symbol-and (test-if-not-in-cl-package "and") nil)
98(deftest symbol-append (test-if-not-in-cl-package "append") nil)
99(deftest symbol-apply (test-if-not-in-cl-package "apply") nil)
100(deftest symbol-apropos (test-if-not-in-cl-package "apropos") nil)
101(deftest symbol-apropos-list (test-if-not-in-cl-package "apropos-list") nil)
102(deftest symbol-aref (test-if-not-in-cl-package "aref") nil)
103(deftest symbol-arithmetic-error (test-if-not-in-cl-package "arithmetic-error") nil)
104(deftest symbol-arithmetic-error-operands (test-if-not-in-cl-package "arithmetic-error-operands") nil)
105(deftest symbol-arithmetic-error-operation (test-if-not-in-cl-package "arithmetic-error-operation") nil)
106(deftest symbol-array (test-if-not-in-cl-package "array") nil)
107(deftest symbol-array-dimension (test-if-not-in-cl-package "array-dimension") nil)
108(deftest symbol-array-dimension-limit (test-if-not-in-cl-package "array-dimension-limit") nil)
109(deftest symbol-array-dimensions (test-if-not-in-cl-package "array-dimensions") nil)
110(deftest symbol-array-displacement (test-if-not-in-cl-package "array-displacement") nil)
111(deftest symbol-array-element-type (test-if-not-in-cl-package "array-element-type") nil)
112(deftest symbol-array-has-fill-pointer-p (test-if-not-in-cl-package "array-has-fill-pointer-p") nil)
113(deftest symbol-array-in-bounds-p (test-if-not-in-cl-package "array-in-bounds-p") nil)
114(deftest symbol-array-rank (test-if-not-in-cl-package "array-rank") nil)
115(deftest symbol-array-rank-limit (test-if-not-in-cl-package "array-rank-limit") nil)
116(deftest symbol-array-row-major-index (test-if-not-in-cl-package "array-row-major-index") nil)
117(deftest symbol-array-total-size (test-if-not-in-cl-package "array-total-size") nil)
118(deftest symbol-array-total-size-limit (test-if-not-in-cl-package "array-total-size-limit") nil)
119(deftest symbol-arrayp (test-if-not-in-cl-package "arrayp") nil)
120(deftest symbol-ash (test-if-not-in-cl-package "ash") nil)
121(deftest symbol-asin (test-if-not-in-cl-package "asin") nil)
122(deftest symbol-asinh (test-if-not-in-cl-package "asinh") nil)
123(deftest symbol-assert (test-if-not-in-cl-package "assert") nil)
124(deftest symbol-assoc (test-if-not-in-cl-package "assoc") nil)
125(deftest symbol-assoc-if (test-if-not-in-cl-package "assoc-if") nil)
126(deftest symbol-assoc-if-not (test-if-not-in-cl-package "assoc-if-not") nil)
127(deftest symbol-atan (test-if-not-in-cl-package "atan") nil)
128(deftest symbol-atanh (test-if-not-in-cl-package "atanh") nil)
129(deftest symbol-atom (test-if-not-in-cl-package "atom") nil)
130(deftest symbol-base-char (test-if-not-in-cl-package "base-char") nil)
131(deftest symbol-base-string (test-if-not-in-cl-package "base-string") nil)
132(deftest symbol-bignum (test-if-not-in-cl-package "bignum") nil)
133(deftest symbol-bit (test-if-not-in-cl-package "bit") nil)
134(deftest symbol-bit-and (test-if-not-in-cl-package "bit-and") nil)
135(deftest symbol-bit-andc1 (test-if-not-in-cl-package "bit-andc1") nil)
136(deftest symbol-bit-andc2 (test-if-not-in-cl-package "bit-andc2") nil)
137(deftest symbol-bit-eqv (test-if-not-in-cl-package "bit-eqv") nil)
138(deftest symbol-bit-ior (test-if-not-in-cl-package "bit-ior") nil)
139(deftest symbol-bit-nand (test-if-not-in-cl-package "bit-nand") nil)
140(deftest symbol-bit-nor (test-if-not-in-cl-package "bit-nor") nil)
141(deftest symbol-bit-not (test-if-not-in-cl-package "bit-not") nil)
142(deftest symbol-bit-orc1 (test-if-not-in-cl-package "bit-orc1") nil)
143(deftest symbol-bit-orc2 (test-if-not-in-cl-package "bit-orc2") nil)
144(deftest symbol-bit-vector (test-if-not-in-cl-package "bit-vector") nil)
145(deftest symbol-bit-vector-p (test-if-not-in-cl-package "bit-vector-p") nil)
146(deftest symbol-bit-xor (test-if-not-in-cl-package "bit-xor") nil)
147(deftest symbol-block (test-if-not-in-cl-package "block") nil)
148(deftest symbol-boole (test-if-not-in-cl-package "boole") nil)
149(deftest symbol-boole-1 (test-if-not-in-cl-package "boole-1") nil)
150(deftest symbol-boole-2 (test-if-not-in-cl-package "boole-2") nil)
151(deftest symbol-boole-and (test-if-not-in-cl-package "boole-and") nil)
152(deftest symbol-boole-andc1 (test-if-not-in-cl-package "boole-andc1") nil)
153(deftest symbol-boole-andc2 (test-if-not-in-cl-package "boole-andc2") nil)
154(deftest symbol-boole-c1 (test-if-not-in-cl-package "boole-c1") nil)
155(deftest symbol-boole-c2 (test-if-not-in-cl-package "boole-c2") nil)
156(deftest symbol-boole-clr (test-if-not-in-cl-package "boole-clr") nil)
157(deftest symbol-boole-eqv (test-if-not-in-cl-package "boole-eqv") nil)
158(deftest symbol-boole-ior (test-if-not-in-cl-package "boole-ior") nil)
159(deftest symbol-boole-nand (test-if-not-in-cl-package "boole-nand") nil)
160(deftest symbol-boole-nor (test-if-not-in-cl-package "boole-nor") nil)
161(deftest symbol-boole-orc1 (test-if-not-in-cl-package "boole-orc1") nil)
162(deftest symbol-boole-orc2 (test-if-not-in-cl-package "boole-orc2") nil)
163(deftest symbol-boole-set (test-if-not-in-cl-package "boole-set") nil)
164(deftest symbol-boole-xor (test-if-not-in-cl-package "boole-xor") nil)
165(deftest symbol-boolean (test-if-not-in-cl-package "boolean") nil)
166(deftest symbol-both-case-p (test-if-not-in-cl-package "both-case-p") nil)
167(deftest symbol-boundp (test-if-not-in-cl-package "boundp") nil)
168(deftest symbol-break (test-if-not-in-cl-package "break") nil)
169(deftest symbol-broadcast-stream (test-if-not-in-cl-package "broadcast-stream") nil)
170(deftest symbol-broadcast-stream-streams (test-if-not-in-cl-package "broadcast-stream-streams") nil)
171(deftest symbol-built-in-class (test-if-not-in-cl-package "built-in-class") nil)
172(deftest symbol-butlast (test-if-not-in-cl-package "butlast") nil)
173(deftest symbol-byte (test-if-not-in-cl-package "byte") nil)
174(deftest symbol-byte-position (test-if-not-in-cl-package "byte-position") nil)
175(deftest symbol-byte-size (test-if-not-in-cl-package "byte-size") nil)
176(deftest symbol-caaaar (test-if-not-in-cl-package "caaaar") nil)
177(deftest symbol-caaadr (test-if-not-in-cl-package "caaadr") nil)
178(deftest symbol-caaar (test-if-not-in-cl-package "caaar") nil)
179(deftest symbol-caadar (test-if-not-in-cl-package "caadar") nil)
180(deftest symbol-caaddr (test-if-not-in-cl-package "caaddr") nil)
181(deftest symbol-caadr (test-if-not-in-cl-package "caadr") nil)
182(deftest symbol-caar (test-if-not-in-cl-package "caar") nil)
183(deftest symbol-cadaar (test-if-not-in-cl-package "cadaar") nil)
184(deftest symbol-cadadr (test-if-not-in-cl-package "cadadr") nil)
185(deftest symbol-cadar (test-if-not-in-cl-package "cadar") nil)
186(deftest symbol-caddar (test-if-not-in-cl-package "caddar") nil)
187(deftest symbol-cadddr (test-if-not-in-cl-package "cadddr") nil)
188(deftest symbol-caddr (test-if-not-in-cl-package "caddr") nil)
189(deftest symbol-cadr (test-if-not-in-cl-package "cadr") nil)
190(deftest symbol-call-arguments-limit (test-if-not-in-cl-package "call-arguments-limit") nil)
191(deftest symbol-call-method (test-if-not-in-cl-package "call-method") nil)
192(deftest symbol-call-next-method (test-if-not-in-cl-package "call-next-method") nil)
193(deftest symbol-car (test-if-not-in-cl-package "car") nil)
194(deftest symbol-case (test-if-not-in-cl-package "case") nil)
195(deftest symbol-catch (test-if-not-in-cl-package "catch") nil)
196(deftest symbol-ccase (test-if-not-in-cl-package "ccase") nil)
197(deftest symbol-cdaaar (test-if-not-in-cl-package "cdaaar") nil)
198(deftest symbol-cdaadr (test-if-not-in-cl-package "cdaadr") nil)
199(deftest symbol-cdaar (test-if-not-in-cl-package "cdaar") nil)
200(deftest symbol-cdadar (test-if-not-in-cl-package "cdadar") nil)
201(deftest symbol-cdaddr (test-if-not-in-cl-package "cdaddr") nil)
202(deftest symbol-cdadr (test-if-not-in-cl-package "cdadr") nil)
203(deftest symbol-cdar (test-if-not-in-cl-package "cdar") nil)
204(deftest symbol-cddaar (test-if-not-in-cl-package "cddaar") nil)
205(deftest symbol-cddadr (test-if-not-in-cl-package "cddadr") nil)
206(deftest symbol-cddar (test-if-not-in-cl-package "cddar") nil)
207(deftest symbol-cdddar (test-if-not-in-cl-package "cdddar") nil)
208(deftest symbol-cddddr (test-if-not-in-cl-package "cddddr") nil)
209(deftest symbol-cdddr (test-if-not-in-cl-package "cdddr") nil)
210(deftest symbol-cddr (test-if-not-in-cl-package "cddr") nil)
211(deftest symbol-cdr (test-if-not-in-cl-package "cdr") nil)
212(deftest symbol-ceiling (test-if-not-in-cl-package "ceiling") nil)
213(deftest symbol-cell-error (test-if-not-in-cl-package "cell-error") nil)
214(deftest symbol-cell-error-name (test-if-not-in-cl-package "cell-error-name") nil)
215(deftest symbol-cerror (test-if-not-in-cl-package "cerror") nil)
216(deftest symbol-change-class (test-if-not-in-cl-package "change-class") nil)
217(deftest symbol-char (test-if-not-in-cl-package "char") nil)
218(deftest symbol-char-code (test-if-not-in-cl-package "char-code") nil)
219(deftest symbol-char-code-limit (test-if-not-in-cl-package "char-code-limit") nil)
220(deftest symbol-char-downcase (test-if-not-in-cl-package "char-downcase") nil)
221(deftest symbol-char-equal (test-if-not-in-cl-package "char-equal") nil)
222(deftest symbol-char-greaterp (test-if-not-in-cl-package "char-greaterp") nil)
223(deftest symbol-char-int (test-if-not-in-cl-package "char-int") nil)
224(deftest symbol-char-lessp (test-if-not-in-cl-package "char-lessp") nil)
225(deftest symbol-char-name (test-if-not-in-cl-package "char-name") nil)
226(deftest symbol-char-not-equal (test-if-not-in-cl-package "char-not-equal") nil)
227(deftest symbol-char-not-greaterp (test-if-not-in-cl-package "char-not-greaterp") nil)
228(deftest symbol-char-not-lessp (test-if-not-in-cl-package "char-not-lessp") nil)
229(deftest symbol-char-upcase (test-if-not-in-cl-package "char-upcase") nil)
230(deftest symbol-char/= (test-if-not-in-cl-package "char/=") nil)
231(deftest symbol-char< (test-if-not-in-cl-package "char<") nil)
232(deftest symbol-char<= (test-if-not-in-cl-package "char<=") nil)
233(deftest symbol-char= (test-if-not-in-cl-package "char=") nil)
234(deftest symbol-char> (test-if-not-in-cl-package "char>") nil)
235(deftest symbol-char>= (test-if-not-in-cl-package "char>=") nil)
236(deftest symbol-character (test-if-not-in-cl-package "character") nil)
237(deftest symbol-characterp (test-if-not-in-cl-package "characterp") nil)
238(deftest symbol-check-type (test-if-not-in-cl-package "check-type") nil)
239(deftest symbol-cis (test-if-not-in-cl-package "cis") nil)
240(deftest symbol-class (test-if-not-in-cl-package "class") nil)
241(deftest symbol-class-name (test-if-not-in-cl-package "class-name") nil)
242(deftest symbol-class-of (test-if-not-in-cl-package "class-of") nil)
243(deftest symbol-clear-input (test-if-not-in-cl-package "clear-input") nil)
244(deftest symbol-clear-output (test-if-not-in-cl-package "clear-output") nil)
245(deftest symbol-close (test-if-not-in-cl-package "close") nil)
246(deftest symbol-clrhash (test-if-not-in-cl-package "clrhash") nil)
247(deftest symbol-code-char (test-if-not-in-cl-package "code-char") nil)
248(deftest symbol-coerce (test-if-not-in-cl-package "coerce") nil)
249(deftest symbol-compilation-speed (test-if-not-in-cl-package "compilation-speed") nil)
250(deftest symbol-compile (test-if-not-in-cl-package "compile") nil)
251(deftest symbol-compile-file (test-if-not-in-cl-package "compile-file") nil)
252(deftest symbol-compile-file-pathname (test-if-not-in-cl-package "compile-file-pathname") nil)
253(deftest symbol-compiled-function (test-if-not-in-cl-package "compiled-function") nil)
254(deftest symbol-compiled-function-p (test-if-not-in-cl-package "compiled-function-p") nil)
255(deftest symbol-compiler-macro (test-if-not-in-cl-package "compiler-macro") nil)
256(deftest symbol-compiler-macro-function (test-if-not-in-cl-package "compiler-macro-function") nil)
257(deftest symbol-complement (test-if-not-in-cl-package "complement") nil)
258(deftest symbol-complex (test-if-not-in-cl-package "complex") nil)
259(deftest symbol-complexp (test-if-not-in-cl-package "complexp") nil)
260(deftest symbol-compute-applicable-methods (test-if-not-in-cl-package "compute-applicable-methods") nil)
261(deftest symbol-compute-restarts (test-if-not-in-cl-package "compute-restarts") nil)
262(deftest symbol-concatenate (test-if-not-in-cl-package "concatenate") nil)
263(deftest symbol-concatenated-stream (test-if-not-in-cl-package "concatenated-stream") nil)
264(deftest symbol-concatenated-stream-streams (test-if-not-in-cl-package "concatenated-stream-streams") nil)
265(deftest symbol-cond (test-if-not-in-cl-package "cond") nil)
266(deftest symbol-condition (test-if-not-in-cl-package "condition") nil)
267(deftest symbol-conjugate (test-if-not-in-cl-package "conjugate") nil)
268(deftest symbol-cons (test-if-not-in-cl-package "cons") nil)
269(deftest symbol-consp (test-if-not-in-cl-package "consp") nil)
270(deftest symbol-constantly (test-if-not-in-cl-package "constantly") nil)
271(deftest symbol-constantp (test-if-not-in-cl-package "constantp") nil)
272(deftest symbol-continue (test-if-not-in-cl-package "continue") nil)
273(deftest symbol-control-error (test-if-not-in-cl-package "control-error") nil)
274(deftest symbol-copy-alist (test-if-not-in-cl-package "copy-alist") nil)
275(deftest symbol-copy-list (test-if-not-in-cl-package "copy-list") nil)
276(deftest symbol-copy-pprint-dispatch (test-if-not-in-cl-package "copy-pprint-dispatch") nil)
277(deftest symbol-copy-readtable (test-if-not-in-cl-package "copy-readtable") nil)
278(deftest symbol-copy-seq (test-if-not-in-cl-package "copy-seq") nil)
279(deftest symbol-copy-structure (test-if-not-in-cl-package "copy-structure") nil)
280(deftest symbol-copy-symbol (test-if-not-in-cl-package "copy-symbol") nil)
281(deftest symbol-copy-tree (test-if-not-in-cl-package "copy-tree") nil)
282(deftest symbol-cos (test-if-not-in-cl-package "cos") nil)
283(deftest symbol-cosh (test-if-not-in-cl-package "cosh") nil)
284(deftest symbol-count (test-if-not-in-cl-package "count") nil)
285(deftest symbol-count-if (test-if-not-in-cl-package "count-if") nil)
286(deftest symbol-count-if-not (test-if-not-in-cl-package "count-if-not") nil)
287(deftest symbol-ctypecase (test-if-not-in-cl-package "ctypecase") nil)
288(deftest symbol-debug (test-if-not-in-cl-package "debug") nil)
289(deftest symbol-decf (test-if-not-in-cl-package "decf") nil)
290(deftest symbol-declaim (test-if-not-in-cl-package "declaim") nil)
291(deftest symbol-declaration (test-if-not-in-cl-package "declaration") nil)
292(deftest symbol-declare (test-if-not-in-cl-package "declare") nil)
293(deftest symbol-decode-float (test-if-not-in-cl-package "decode-float") nil)
294(deftest symbol-decode-universal-time (test-if-not-in-cl-package "decode-universal-time") nil)
295(deftest symbol-defclass (test-if-not-in-cl-package "defclass") nil)
296(deftest symbol-defconstant (test-if-not-in-cl-package "defconstant") nil)
297(deftest symbol-defgeneric (test-if-not-in-cl-package "defgeneric") nil)
298(deftest symbol-define-compiler-macro (test-if-not-in-cl-package "define-compiler-macro") nil)
299(deftest symbol-define-condition (test-if-not-in-cl-package "define-condition") nil)
300(deftest symbol-define-method-combination (test-if-not-in-cl-package "define-method-combination") nil)
301(deftest symbol-define-modify-macro (test-if-not-in-cl-package "define-modify-macro") nil)
302(deftest symbol-define-setf-expander (test-if-not-in-cl-package "define-setf-expander") nil)
303(deftest symbol-define-symbol-macro (test-if-not-in-cl-package "define-symbol-macro") nil)
304(deftest symbol-defmacro (test-if-not-in-cl-package "defmacro") nil)
305(deftest symbol-defmethod (test-if-not-in-cl-package "defmethod") nil)
306(deftest symbol-defpackage (test-if-not-in-cl-package "defpackage") nil)
307(deftest symbol-defparameter (test-if-not-in-cl-package "defparameter") nil)
308(deftest symbol-defsetf (test-if-not-in-cl-package "defsetf") nil)
309(deftest symbol-defstruct (test-if-not-in-cl-package "defstruct") nil)
310(deftest symbol-deftype (test-if-not-in-cl-package "deftype") nil)
311(deftest symbol-defun (test-if-not-in-cl-package "defun") nil)
312(deftest symbol-defvar (test-if-not-in-cl-package "defvar") nil)
313(deftest symbol-delete (test-if-not-in-cl-package "delete") nil)
314(deftest symbol-delete-duplicates (test-if-not-in-cl-package "delete-duplicates") nil)
315(deftest symbol-delete-file (test-if-not-in-cl-package "delete-file") nil)
316(deftest symbol-delete-if (test-if-not-in-cl-package "delete-if") nil)
317(deftest symbol-delete-if-not (test-if-not-in-cl-package "delete-if-not") nil)
318(deftest symbol-delete-package (test-if-not-in-cl-package "delete-package") nil)
319(deftest symbol-denominator (test-if-not-in-cl-package "denominator") nil)
320(deftest symbol-deposit-field (test-if-not-in-cl-package "deposit-field") nil)
321(deftest symbol-describe (test-if-not-in-cl-package "describe") nil)
322(deftest symbol-describe-object (test-if-not-in-cl-package "describe-object") nil)
323(deftest symbol-destructuring-bind (test-if-not-in-cl-package "destructuring-bind") nil)
324(deftest symbol-digit-char (test-if-not-in-cl-package "digit-char") nil)
325(deftest symbol-digit-char-p (test-if-not-in-cl-package "digit-char-p") nil)
326(deftest symbol-directory (test-if-not-in-cl-package "directory") nil)
327(deftest symbol-directory-namestring (test-if-not-in-cl-package "directory-namestring") nil)
328(deftest symbol-disassemble (test-if-not-in-cl-package "disassemble") nil)
329(deftest symbol-division-by-zero (test-if-not-in-cl-package "division-by-zero") nil)
330(deftest symbol-do (test-if-not-in-cl-package "do") nil)
331(deftest symbol-do* (test-if-not-in-cl-package "do*") nil)
332(deftest symbol-do-all-symbols (test-if-not-in-cl-package "do-all-symbols") nil)
333(deftest symbol-do-external-symbols (test-if-not-in-cl-package "do-external-symbols") nil)
334(deftest symbol-do-symbols (test-if-not-in-cl-package "do-symbols") nil)
335(deftest symbol-documentation (test-if-not-in-cl-package "documentation") nil)
336(deftest symbol-dolist (test-if-not-in-cl-package "dolist") nil)
337(deftest symbol-dotimes (test-if-not-in-cl-package "dotimes") nil)
338(deftest symbol-double-float (test-if-not-in-cl-package "double-float") nil)
339(deftest symbol-double-float-epsilon (test-if-not-in-cl-package "double-float-epsilon") nil)
340(deftest symbol-double-float-negative-epsilon (test-if-not-in-cl-package "double-float-negative-epsilon") nil)
341(deftest symbol-dpb (test-if-not-in-cl-package "dpb") nil)
342(deftest symbol-dribble (test-if-not-in-cl-package "dribble") nil)
343(deftest symbol-dynamic-extent (test-if-not-in-cl-package "dynamic-extent") nil)
344(deftest symbol-ecase (test-if-not-in-cl-package "ecase") nil)
345(deftest symbol-echo-stream (test-if-not-in-cl-package "echo-stream") nil)
346(deftest symbol-echo-stream-input-stream (test-if-not-in-cl-package "echo-stream-input-stream") nil)
347(deftest symbol-echo-stream-output-stream (test-if-not-in-cl-package "echo-stream-output-stream") nil)
348(deftest symbol-ed (test-if-not-in-cl-package "ed") nil)
349(deftest symbol-eighth (test-if-not-in-cl-package "eighth") nil)
350(deftest symbol-elt (test-if-not-in-cl-package "elt") nil)
351(deftest symbol-encode-universal-time (test-if-not-in-cl-package "encode-universal-time") nil)
352(deftest symbol-end-of-file (test-if-not-in-cl-package "end-of-file") nil)
353(deftest symbol-endp (test-if-not-in-cl-package "endp") nil)
354(deftest symbol-enough-namestring (test-if-not-in-cl-package "enough-namestring") nil)
355(deftest symbol-ensure-directories-exist (test-if-not-in-cl-package "ensure-directories-exist") nil)
356(deftest symbol-ensure-generic-function (test-if-not-in-cl-package "ensure-generic-function") nil)
357(deftest symbol-eq (test-if-not-in-cl-package "eq") nil)
358(deftest symbol-eql (test-if-not-in-cl-package "eql") nil)
359(deftest symbol-equal (test-if-not-in-cl-package "equal") nil)
360(deftest symbol-equalp (test-if-not-in-cl-package "equalp") nil)
361(deftest symbol-error (test-if-not-in-cl-package "error") nil)
362(deftest symbol-etypecase (test-if-not-in-cl-package "etypecase") nil)
363(deftest symbol-eval (test-if-not-in-cl-package "eval") nil)
364(deftest symbol-eval-when (test-if-not-in-cl-package "eval-when") nil)
365(deftest symbol-evenp (test-if-not-in-cl-package "evenp") nil)
366(deftest symbol-every (test-if-not-in-cl-package "every") nil)
367(deftest symbol-exp (test-if-not-in-cl-package "exp") nil)
368(deftest symbol-export (test-if-not-in-cl-package "export") nil)
369(deftest symbol-expt (test-if-not-in-cl-package "expt") nil)
370(deftest symbol-extended-char (test-if-not-in-cl-package "extended-char") nil)
371(deftest symbol-fboundp (test-if-not-in-cl-package "fboundp") nil)
372(deftest symbol-fceiling (test-if-not-in-cl-package "fceiling") nil)
373(deftest symbol-fdefinition (test-if-not-in-cl-package "fdefinition") nil)
374(deftest symbol-ffloor (test-if-not-in-cl-package "ffloor") nil)
375(deftest symbol-fifth (test-if-not-in-cl-package "fifth") nil)
376(deftest symbol-file-author (test-if-not-in-cl-package "file-author") nil)
377(deftest symbol-file-error (test-if-not-in-cl-package "file-error") nil)
378(deftest symbol-file-error-pathname (test-if-not-in-cl-package "file-error-pathname") nil)
379(deftest symbol-file-length (test-if-not-in-cl-package "file-length") nil)
380(deftest symbol-file-namestring (test-if-not-in-cl-package "file-namestring") nil)
381(deftest symbol-file-position (test-if-not-in-cl-package "file-position") nil)
382(deftest symbol-file-stream (test-if-not-in-cl-package "file-stream") nil)
383(deftest symbol-file-string-length (test-if-not-in-cl-package "file-string-length") nil)
384(deftest symbol-file-write-date (test-if-not-in-cl-package "file-write-date") nil)
385(deftest symbol-fill (test-if-not-in-cl-package "fill") nil)
386(deftest symbol-fill-pointer (test-if-not-in-cl-package "fill-pointer") nil)
387(deftest symbol-find (test-if-not-in-cl-package "find") nil)
388(deftest symbol-find-all-symbols (test-if-not-in-cl-package "find-all-symbols") nil)
389(deftest symbol-find-class (test-if-not-in-cl-package "find-class") nil)
390(deftest symbol-find-if (test-if-not-in-cl-package "find-if") nil)
391(deftest symbol-find-if-not (test-if-not-in-cl-package "find-if-not") nil)
392(deftest symbol-find-method (test-if-not-in-cl-package "find-method") nil)
393(deftest symbol-find-package (test-if-not-in-cl-package "find-package") nil)
394(deftest symbol-find-restart (test-if-not-in-cl-package "find-restart") nil)
395(deftest symbol-find-symbol (test-if-not-in-cl-package "find-symbol") nil)
396(deftest symbol-finish-output (test-if-not-in-cl-package "finish-output") nil)
397(deftest symbol-first (test-if-not-in-cl-package "first") nil)
398(deftest symbol-fixnum (test-if-not-in-cl-package "fixnum") nil)
399(deftest symbol-flet (test-if-not-in-cl-package "flet") nil)
400(deftest symbol-float (test-if-not-in-cl-package "float") nil)
401(deftest symbol-float-digits (test-if-not-in-cl-package "float-digits") nil)
402(deftest symbol-float-precision (test-if-not-in-cl-package "float-precision") nil)
403(deftest symbol-float-radix (test-if-not-in-cl-package "float-radix") nil)
404(deftest symbol-float-sign (test-if-not-in-cl-package "float-sign") nil)
405(deftest symbol-floating-point-inexact (test-if-not-in-cl-package "floating-point-inexact") nil)
406(deftest symbol-floating-point-invalid-operation (test-if-not-in-cl-package "floating-point-invalid-operation") nil)
407(deftest symbol-floating-point-overflow (test-if-not-in-cl-package "floating-point-overflow") nil)
408(deftest symbol-floating-point-underflow (test-if-not-in-cl-package "floating-point-underflow") nil)
409(deftest symbol-floatp (test-if-not-in-cl-package "floatp") nil)
410(deftest symbol-floor (test-if-not-in-cl-package "floor") nil)
411(deftest symbol-fmakunbound (test-if-not-in-cl-package "fmakunbound") nil)
412(deftest symbol-force-output (test-if-not-in-cl-package "force-output") nil)
413(deftest symbol-format (test-if-not-in-cl-package "format") nil)
414(deftest symbol-formatter (test-if-not-in-cl-package "formatter") nil)
415(deftest symbol-fourth (test-if-not-in-cl-package "fourth") nil)
416(deftest symbol-fresh-line (test-if-not-in-cl-package "fresh-line") nil)
417(deftest symbol-fround (test-if-not-in-cl-package "fround") nil)
418(deftest symbol-ftruncate (test-if-not-in-cl-package "ftruncate") nil)
419(deftest symbol-ftype (test-if-not-in-cl-package "ftype") nil)
420(deftest symbol-funcall (test-if-not-in-cl-package "funcall") nil)
421(deftest symbol-function (test-if-not-in-cl-package "function") nil)
422(deftest symbol-function-keywords (test-if-not-in-cl-package "function-keywords") nil)
423(deftest symbol-function-lambda-expression (test-if-not-in-cl-package "function-lambda-expression") nil)
424(deftest symbol-functionp (test-if-not-in-cl-package "functionp") nil)
425(deftest symbol-gcd (test-if-not-in-cl-package "gcd") nil)
426(deftest symbol-generic-function (test-if-not-in-cl-package "generic-function") nil)
427(deftest symbol-gensym (test-if-not-in-cl-package "gensym") nil)
428(deftest symbol-gentemp (test-if-not-in-cl-package "gentemp") nil)
429(deftest symbol-get (test-if-not-in-cl-package "get") nil)
430(deftest symbol-get-decoded-time (test-if-not-in-cl-package "get-decoded-time") nil)
431(deftest symbol-get-dispatch-macro-character (test-if-not-in-cl-package "get-dispatch-macro-character") nil)
432(deftest symbol-get-internal-real-time (test-if-not-in-cl-package "get-internal-real-time") nil)
433(deftest symbol-get-internal-run-time (test-if-not-in-cl-package "get-internal-run-time") nil)
434(deftest symbol-get-macro-character (test-if-not-in-cl-package "get-macro-character") nil)
435(deftest symbol-get-output-stream-string (test-if-not-in-cl-package "get-output-stream-string") nil)
436(deftest symbol-get-properties (test-if-not-in-cl-package "get-properties") nil)
437(deftest symbol-get-setf-expansion (test-if-not-in-cl-package "get-setf-expansion") nil)
438(deftest symbol-get-universal-time (test-if-not-in-cl-package "get-universal-time") nil)
439(deftest symbol-getf (test-if-not-in-cl-package "getf") nil)
440(deftest symbol-gethash (test-if-not-in-cl-package "gethash") nil)
441(deftest symbol-go (test-if-not-in-cl-package "go") nil)
442(deftest symbol-graphic-char-p (test-if-not-in-cl-package "graphic-char-p") nil)
443(deftest symbol-handler-bind (test-if-not-in-cl-package "handler-bind") nil)
444(deftest symbol-handler-case (test-if-not-in-cl-package "handler-case") nil)
445(deftest symbol-hash-table (test-if-not-in-cl-package "hash-table") nil)
446(deftest symbol-hash-table-count (test-if-not-in-cl-package "hash-table-count") nil)
447(deftest symbol-hash-table-p (test-if-not-in-cl-package "hash-table-p") nil)
448(deftest symbol-hash-table-rehash-size (test-if-not-in-cl-package "hash-table-rehash-size") nil)
449(deftest symbol-hash-table-rehash-threshold (test-if-not-in-cl-package "hash-table-rehash-threshold") nil)
450(deftest symbol-hash-table-size (test-if-not-in-cl-package "hash-table-size") nil)
451(deftest symbol-hash-table-test (test-if-not-in-cl-package "hash-table-test") nil)
452(deftest symbol-host-namestring (test-if-not-in-cl-package "host-namestring") nil)
453(deftest symbol-identity (test-if-not-in-cl-package "identity") nil)
454(deftest symbol-if (test-if-not-in-cl-package "if") nil)
455(deftest symbol-ignorable (test-if-not-in-cl-package "ignorable") nil)
456(deftest symbol-ignore (test-if-not-in-cl-package "ignore") nil)
457(deftest symbol-ignore-errors (test-if-not-in-cl-package "ignore-errors") nil)
458(deftest symbol-imagpart (test-if-not-in-cl-package "imagpart") nil)
459(deftest symbol-import (test-if-not-in-cl-package "import") nil)
460(deftest symbol-in-package (test-if-not-in-cl-package "in-package") nil)
461(deftest symbol-incf (test-if-not-in-cl-package "incf") nil)
462(deftest symbol-initialize-instance (test-if-not-in-cl-package "initialize-instance") nil)
463(deftest symbol-inline (test-if-not-in-cl-package "inline") nil)
464(deftest symbol-input-stream-p (test-if-not-in-cl-package "input-stream-p") nil)
465(deftest symbol-inspect (test-if-not-in-cl-package "inspect") nil)
466(deftest symbol-integer (test-if-not-in-cl-package "integer") nil)
467(deftest symbol-integer-decode-float (test-if-not-in-cl-package "integer-decode-float") nil)
468(deftest symbol-integer-length (test-if-not-in-cl-package "integer-length") nil)
469(deftest symbol-integerp (test-if-not-in-cl-package "integerp") nil)
470(deftest symbol-interactive-stream-p (test-if-not-in-cl-package "interactive-stream-p") nil)
471(deftest symbol-intern (test-if-not-in-cl-package "intern") nil)
472(deftest symbol-internal-time-units-per-second (test-if-not-in-cl-package "internal-time-units-per-second") nil)
473(deftest symbol-intersection (test-if-not-in-cl-package "intersection") nil)
474(deftest symbol-invalid-method-error (test-if-not-in-cl-package "invalid-method-error") nil)
475(deftest symbol-invoke-debugger (test-if-not-in-cl-package "invoke-debugger") nil)
476(deftest symbol-invoke-restart (test-if-not-in-cl-package "invoke-restart") nil)
477(deftest symbol-invoke-restart-interactively (test-if-not-in-cl-package "invoke-restart-interactively") nil)
478(deftest symbol-isqrt (test-if-not-in-cl-package "isqrt") nil)
479(deftest symbol-keyword (test-if-not-in-cl-package "keyword") nil)
480(deftest symbol-keywordp (test-if-not-in-cl-package "keywordp") nil)
481(deftest symbol-labels (test-if-not-in-cl-package "labels") nil)
482(deftest symbol-lambda (test-if-not-in-cl-package "lambda") nil)
483(deftest symbol-lambda-list-keywords (test-if-not-in-cl-package "lambda-list-keywords") nil)
484(deftest symbol-lambda-parameters-limit (test-if-not-in-cl-package "lambda-parameters-limit") nil)
485(deftest symbol-last (test-if-not-in-cl-package "last") nil)
486(deftest symbol-lcm (test-if-not-in-cl-package "lcm") nil)
487(deftest symbol-ldb (test-if-not-in-cl-package "ldb") nil)
488(deftest symbol-ldb-test (test-if-not-in-cl-package "ldb-test") nil)
489(deftest symbol-ldiff (test-if-not-in-cl-package "ldiff") nil)
490(deftest symbol-least-negative-double-float (test-if-not-in-cl-package "least-negative-double-float") nil)
491(deftest symbol-least-negative-long-float (test-if-not-in-cl-package "least-negative-long-float") nil)
492(deftest symbol-least-negative-normalized-double-float (test-if-not-in-cl-package "least-negative-normalized-double-float") nil)
493(deftest symbol-least-negative-normalized-long-float (test-if-not-in-cl-package "least-negative-normalized-long-float") nil)
494(deftest symbol-least-negative-normalized-short-float (test-if-not-in-cl-package "least-negative-normalized-short-float") nil)
495(deftest symbol-least-negative-normalized-single-float (test-if-not-in-cl-package "least-negative-normalized-single-float") nil)
496(deftest symbol-least-negative-short-float (test-if-not-in-cl-package "least-negative-short-float") nil)
497(deftest symbol-least-negative-single-float (test-if-not-in-cl-package "least-negative-single-float") nil)
498(deftest symbol-least-positive-double-float (test-if-not-in-cl-package "least-positive-double-float") nil)
499(deftest symbol-least-positive-long-float (test-if-not-in-cl-package "least-positive-long-float") nil)
500(deftest symbol-least-positive-normalized-double-float (test-if-not-in-cl-package "least-positive-normalized-double-float") nil)
501(deftest symbol-least-positive-normalized-long-float (test-if-not-in-cl-package "least-positive-normalized-long-float") nil)
502(deftest symbol-least-positive-normalized-short-float (test-if-not-in-cl-package "least-positive-normalized-short-float") nil)
503(deftest symbol-least-positive-normalized-single-float (test-if-not-in-cl-package "least-positive-normalized-single-float") nil)
504(deftest symbol-least-positive-short-float (test-if-not-in-cl-package "least-positive-short-float") nil)
505(deftest symbol-least-positive-single-float (test-if-not-in-cl-package "least-positive-single-float") nil)
506(deftest symbol-length (test-if-not-in-cl-package "length") nil)
507(deftest symbol-let (test-if-not-in-cl-package "let") nil)
508(deftest symbol-let* (test-if-not-in-cl-package "let*") nil)
509(deftest symbol-lisp-implementation-type (test-if-not-in-cl-package "lisp-implementation-type") nil)
510(deftest symbol-lisp-implementation-version (test-if-not-in-cl-package "lisp-implementation-version") nil)
511(deftest symbol-list (test-if-not-in-cl-package "list") nil)
512(deftest symbol-list* (test-if-not-in-cl-package "list*") nil)
513(deftest symbol-list-all-packages (test-if-not-in-cl-package "list-all-packages") nil)
514(deftest symbol-list-length (test-if-not-in-cl-package "list-length") nil)
515(deftest symbol-listen (test-if-not-in-cl-package "listen") nil)
516(deftest symbol-listp (test-if-not-in-cl-package "listp") nil)
517(deftest symbol-load (test-if-not-in-cl-package "load") nil)
518(deftest symbol-load-logical-pathname-translations (test-if-not-in-cl-package "load-logical-pathname-translations") nil)
519(deftest symbol-load-time-value (test-if-not-in-cl-package "load-time-value") nil)
520(deftest symbol-locally (test-if-not-in-cl-package "locally") nil)
521(deftest symbol-log (test-if-not-in-cl-package "log") nil)
522(deftest symbol-logand (test-if-not-in-cl-package "logand") nil)
523(deftest symbol-logandc1 (test-if-not-in-cl-package "logandc1") nil)
524(deftest symbol-logandc2 (test-if-not-in-cl-package "logandc2") nil)
525(deftest symbol-logbitp (test-if-not-in-cl-package "logbitp") nil)
526(deftest symbol-logcount (test-if-not-in-cl-package "logcount") nil)
527(deftest symbol-logeqv (test-if-not-in-cl-package "logeqv") nil)
528(deftest symbol-logical-pathname (test-if-not-in-cl-package "logical-pathname") nil)
529(deftest symbol-logical-pathname-translations (test-if-not-in-cl-package "logical-pathname-translations") nil)
530(deftest symbol-logior (test-if-not-in-cl-package "logior") nil)
531(deftest symbol-lognand (test-if-not-in-cl-package "lognand") nil)
532(deftest symbol-lognor (test-if-not-in-cl-package "lognor") nil)
533(deftest symbol-lognot (test-if-not-in-cl-package "lognot") nil)
534(deftest symbol-logorc1 (test-if-not-in-cl-package "logorc1") nil)
535(deftest symbol-logorc2 (test-if-not-in-cl-package "logorc2") nil)
536(deftest symbol-logtest (test-if-not-in-cl-package "logtest") nil)
537(deftest symbol-logxor (test-if-not-in-cl-package "logxor") nil)
538(deftest symbol-long-float (test-if-not-in-cl-package "long-float") nil)
539(deftest symbol-long-float-epsilon (test-if-not-in-cl-package "long-float-epsilon") nil)
540(deftest symbol-long-float-negative-epsilon (test-if-not-in-cl-package "long-float-negative-epsilon") nil)
541(deftest symbol-long-site-name (test-if-not-in-cl-package "long-site-name") nil)
542(deftest symbol-loop (test-if-not-in-cl-package "loop") nil)
543(deftest symbol-loop-finish (test-if-not-in-cl-package "loop-finish") nil)
544(deftest symbol-lower-case-p (test-if-not-in-cl-package "lower-case-p") nil)
545(deftest symbol-machine-instance (test-if-not-in-cl-package "machine-instance") nil)
546(deftest symbol-machine-type (test-if-not-in-cl-package "machine-type") nil)
547(deftest symbol-machine-version (test-if-not-in-cl-package "machine-version") nil)
548(deftest symbol-macro-function (test-if-not-in-cl-package "macro-function") nil)
549(deftest symbol-macroexpand (test-if-not-in-cl-package "macroexpand") nil)
550(deftest symbol-macroexpand-1 (test-if-not-in-cl-package "macroexpand-1") nil)
551(deftest symbol-macrolet (test-if-not-in-cl-package "macrolet") nil)
552(deftest symbol-make-array (test-if-not-in-cl-package "make-array") nil)
553(deftest symbol-make-broadcast-stream (test-if-not-in-cl-package "make-broadcast-stream") nil)
554(deftest symbol-make-concatenated-stream (test-if-not-in-cl-package "make-concatenated-stream") nil)
555(deftest symbol-make-condition (test-if-not-in-cl-package "make-condition") nil)
556(deftest symbol-make-dispatch-macro-character (test-if-not-in-cl-package "make-dispatch-macro-character") nil)
557(deftest symbol-make-echo-stream (test-if-not-in-cl-package "make-echo-stream") nil)
558(deftest symbol-make-hash-table (test-if-not-in-cl-package "make-hash-table") nil)
559(deftest symbol-make-instance (test-if-not-in-cl-package "make-instance") nil)
560(deftest symbol-make-instances-obsolete (test-if-not-in-cl-package "make-instances-obsolete") nil)
561(deftest symbol-make-list (test-if-not-in-cl-package "make-list") nil)
562(deftest symbol-make-load-form (test-if-not-in-cl-package "make-load-form") nil)
563(deftest symbol-make-load-form-saving-slots (test-if-not-in-cl-package "make-load-form-saving-slots") nil)
564(deftest symbol-make-method (test-if-not-in-cl-package "make-method") nil)
565(deftest symbol-make-package (test-if-not-in-cl-package "make-package") nil)
566(deftest symbol-make-pathname (test-if-not-in-cl-package "make-pathname") nil)
567(deftest symbol-make-random-state (test-if-not-in-cl-package "make-random-state") nil)
568(deftest symbol-make-sequence (test-if-not-in-cl-package "make-sequence") nil)
569(deftest symbol-make-string (test-if-not-in-cl-package "make-string") nil)
570(deftest symbol-make-string-input-stream (test-if-not-in-cl-package "make-string-input-stream") nil)
571(deftest symbol-make-string-output-stream (test-if-not-in-cl-package "make-string-output-stream") nil)
572(deftest symbol-make-symbol (test-if-not-in-cl-package "make-symbol") nil)
573(deftest symbol-make-synonym-stream (test-if-not-in-cl-package "make-synonym-stream") nil)
574(deftest symbol-make-two-way-stream (test-if-not-in-cl-package "make-two-way-stream") nil)
575(deftest symbol-makunbound (test-if-not-in-cl-package "makunbound") nil)
576(deftest symbol-map (test-if-not-in-cl-package "map") nil)
577(deftest symbol-map-into (test-if-not-in-cl-package "map-into") nil)
578(deftest symbol-mapc (test-if-not-in-cl-package "mapc") nil)
579(deftest symbol-mapcan (test-if-not-in-cl-package "mapcan") nil)
580(deftest symbol-mapcar (test-if-not-in-cl-package "mapcar") nil)
581(deftest symbol-mapcon (test-if-not-in-cl-package "mapcon") nil)
582(deftest symbol-maphash (test-if-not-in-cl-package "maphash") nil)
583(deftest symbol-mapl (test-if-not-in-cl-package "mapl") nil)
584(deftest symbol-maplist (test-if-not-in-cl-package "maplist") nil)
585(deftest symbol-mask-field (test-if-not-in-cl-package "mask-field") nil)
586(deftest symbol-max (test-if-not-in-cl-package "max") nil)
587(deftest symbol-member (test-if-not-in-cl-package "member") nil)
588(deftest symbol-member-if (test-if-not-in-cl-package "member-if") nil)
589(deftest symbol-member-if-not (test-if-not-in-cl-package "member-if-not") nil)
590(deftest symbol-merge (test-if-not-in-cl-package "merge") nil)
591(deftest symbol-merge-pathnames (test-if-not-in-cl-package "merge-pathnames") nil)
592(deftest symbol-method (test-if-not-in-cl-package "method") nil)
593(deftest symbol-method-combination (test-if-not-in-cl-package "method-combination") nil)
594(deftest symbol-method-combination-error (test-if-not-in-cl-package "method-combination-error") nil)
595(deftest symbol-method-qualifiers (test-if-not-in-cl-package "method-qualifiers") nil)
596(deftest symbol-min (test-if-not-in-cl-package "min") nil)
597(deftest symbol-minusp (test-if-not-in-cl-package "minusp") nil)
598(deftest symbol-mismatch (test-if-not-in-cl-package "mismatch") nil)
599(deftest symbol-mod (test-if-not-in-cl-package "mod") nil)
600(deftest symbol-most-negative-double-float (test-if-not-in-cl-package "most-negative-double-float") nil)
601(deftest symbol-most-negative-fixnum (test-if-not-in-cl-package "most-negative-fixnum") nil)
602(deftest symbol-most-negative-long-float (test-if-not-in-cl-package "most-negative-long-float") nil)
603(deftest symbol-most-negative-short-float (test-if-not-in-cl-package "most-negative-short-float") nil)
604(deftest symbol-most-negative-single-float (test-if-not-in-cl-package "most-negative-single-float") nil)
605(deftest symbol-most-positive-double-float (test-if-not-in-cl-package "most-positive-double-float") nil)
606(deftest symbol-most-positive-fixnum (test-if-not-in-cl-package "most-positive-fixnum") nil)
607(deftest symbol-most-positive-long-float (test-if-not-in-cl-package "most-positive-long-float") nil)
608(deftest symbol-most-positive-short-float (test-if-not-in-cl-package "most-positive-short-float") nil)
609(deftest symbol-most-positive-single-float (test-if-not-in-cl-package "most-positive-single-float") nil)
610(deftest symbol-muffle-warning (test-if-not-in-cl-package "muffle-warning") nil)
611(deftest symbol-multiple-value-bind (test-if-not-in-cl-package "multiple-value-bind") nil)
612(deftest symbol-multiple-value-call (test-if-not-in-cl-package "multiple-value-call") nil)
613(deftest symbol-multiple-value-list (test-if-not-in-cl-package "multiple-value-list") nil)
614(deftest symbol-multiple-value-prog1 (test-if-not-in-cl-package "multiple-value-prog1") nil)
615(deftest symbol-multiple-value-setq (test-if-not-in-cl-package "multiple-value-setq") nil)
616(deftest symbol-multiple-values-limit (test-if-not-in-cl-package "multiple-values-limit") nil)
617(deftest symbol-name-char (test-if-not-in-cl-package "name-char") nil)
618(deftest symbol-namestring (test-if-not-in-cl-package "namestring") nil)
619(deftest symbol-nbutlast (test-if-not-in-cl-package "nbutlast") nil)
620(deftest symbol-nconc (test-if-not-in-cl-package "nconc") nil)
621(deftest symbol-next-method-p (test-if-not-in-cl-package "next-method-p") nil)
622(deftest symbol-nil (test-if-not-in-cl-package "nil") nil)
623(deftest symbol-nintersection (test-if-not-in-cl-package "nintersection") nil)
624(deftest symbol-ninth (test-if-not-in-cl-package "ninth") nil)
625(deftest symbol-no-applicable-method (test-if-not-in-cl-package "no-applicable-method") nil)
626(deftest symbol-no-next-method (test-if-not-in-cl-package "no-next-method") nil)
627(deftest symbol-not (test-if-not-in-cl-package "not") nil)
628(deftest symbol-notany (test-if-not-in-cl-package "notany") nil)
629(deftest symbol-notevery (test-if-not-in-cl-package "notevery") nil)
630(deftest symbol-notinline (test-if-not-in-cl-package "notinline") nil)
631(deftest symbol-nreconc (test-if-not-in-cl-package "nreconc") nil)
632(deftest symbol-nreverse (test-if-not-in-cl-package "nreverse") nil)
633(deftest symbol-nset-difference (test-if-not-in-cl-package "nset-difference") nil)
634(deftest symbol-nset-exclusive-or (test-if-not-in-cl-package "nset-exclusive-or") nil)
635(deftest symbol-nstring-capitalize (test-if-not-in-cl-package "nstring-capitalize") nil)
636(deftest symbol-nstring-downcase (test-if-not-in-cl-package "nstring-downcase") nil)
637(deftest symbol-nstring-upcase (test-if-not-in-cl-package "nstring-upcase") nil)
638(deftest symbol-nsublis (test-if-not-in-cl-package "nsublis") nil)
639(deftest symbol-nsubst (test-if-not-in-cl-package "nsubst") nil)
640(deftest symbol-nsubst-if (test-if-not-in-cl-package "nsubst-if") nil)
641(deftest symbol-nsubst-if-not (test-if-not-in-cl-package "nsubst-if-not") nil)
642(deftest symbol-nsubstitute (test-if-not-in-cl-package "nsubstitute") nil)
643(deftest symbol-nsubstitute-if (test-if-not-in-cl-package "nsubstitute-if") nil)
644(deftest symbol-nsubstitute-if-not (test-if-not-in-cl-package "nsubstitute-if-not") nil)
645(deftest symbol-nth (test-if-not-in-cl-package "nth") nil)
646(deftest symbol-nth-value (test-if-not-in-cl-package "nth-value") nil)
647(deftest symbol-nthcdr (test-if-not-in-cl-package "nthcdr") nil)
648(deftest symbol-null (test-if-not-in-cl-package "null") nil)
649(deftest symbol-number (test-if-not-in-cl-package "number") nil)
650(deftest symbol-numberp (test-if-not-in-cl-package "numberp") nil)
651(deftest symbol-numerator (test-if-not-in-cl-package "numerator") nil)
652(deftest symbol-nunion (test-if-not-in-cl-package "nunion") nil)
653(deftest symbol-oddp (test-if-not-in-cl-package "oddp") nil)
654(deftest symbol-open (test-if-not-in-cl-package "open") nil)
655(deftest symbol-open-stream-p (test-if-not-in-cl-package "open-stream-p") nil)
656(deftest symbol-optimize (test-if-not-in-cl-package "optimize") nil)
657(deftest symbol-or (test-if-not-in-cl-package "or") nil)
658(deftest symbol-otherwise (test-if-not-in-cl-package "otherwise") nil)
659(deftest symbol-output-stream-p (test-if-not-in-cl-package "output-stream-p") nil)
660(deftest symbol-package (test-if-not-in-cl-package "package") nil)
661(deftest symbol-package-error (test-if-not-in-cl-package "package-error") nil)
662(deftest symbol-package-error-package (test-if-not-in-cl-package "package-error-package") nil)
663(deftest symbol-package-name (test-if-not-in-cl-package "package-name") nil)
664(deftest symbol-package-nicknames (test-if-not-in-cl-package "package-nicknames") nil)
665(deftest symbol-package-shadowing-symbols (test-if-not-in-cl-package "package-shadowing-symbols") nil)
666(deftest symbol-package-use-list (test-if-not-in-cl-package "package-use-list") nil)
667(deftest symbol-package-used-by-list (test-if-not-in-cl-package "package-used-by-list") nil)
668(deftest symbol-packagep (test-if-not-in-cl-package "packagep") nil)
669(deftest symbol-pairlis (test-if-not-in-cl-package "pairlis") nil)
670(deftest symbol-parse-error (test-if-not-in-cl-package "parse-error") nil)
671(deftest symbol-parse-integer (test-if-not-in-cl-package "parse-integer") nil)
672(deftest symbol-parse-namestring (test-if-not-in-cl-package "parse-namestring") nil)
673(deftest symbol-pathname (test-if-not-in-cl-package "pathname") nil)
674(deftest symbol-pathname-device (test-if-not-in-cl-package "pathname-device") nil)
675(deftest symbol-pathname-directory (test-if-not-in-cl-package "pathname-directory") nil)
676(deftest symbol-pathname-host (test-if-not-in-cl-package "pathname-host") nil)
677(deftest symbol-pathname-match-p (test-if-not-in-cl-package "pathname-match-p") nil)
678(deftest symbol-pathname-name (test-if-not-in-cl-package "pathname-name") nil)
679(deftest symbol-pathname-type (test-if-not-in-cl-package "pathname-type") nil)
680(deftest symbol-pathname-version (test-if-not-in-cl-package "pathname-version") nil)
681(deftest symbol-pathnamep (test-if-not-in-cl-package "pathnamep") nil)
682(deftest symbol-peek-char (test-if-not-in-cl-package "peek-char") nil)
683(deftest symbol-phase (test-if-not-in-cl-package "phase") nil)
684(deftest symbol-pi (test-if-not-in-cl-package "pi") nil)
685(deftest symbol-plusp (test-if-not-in-cl-package "plusp") nil)
686(deftest symbol-pop (test-if-not-in-cl-package "pop") nil)
687(deftest symbol-position (test-if-not-in-cl-package "position") nil)
688(deftest symbol-position-if (test-if-not-in-cl-package "position-if") nil)
689(deftest symbol-position-if-not (test-if-not-in-cl-package "position-if-not") nil)
690(deftest symbol-pprint (test-if-not-in-cl-package "pprint") nil)
691(deftest symbol-pprint-dispatch (test-if-not-in-cl-package "pprint-dispatch") nil)
692(deftest symbol-pprint-exit-if-list-exhausted (test-if-not-in-cl-package "pprint-exit-if-list-exhausted") nil)
693(deftest symbol-pprint-fill (test-if-not-in-cl-package "pprint-fill") nil)
694(deftest symbol-pprint-indent (test-if-not-in-cl-package "pprint-indent") nil)
695(deftest symbol-pprint-linear (test-if-not-in-cl-package "pprint-linear") nil)
696(deftest symbol-pprint-logical-block (test-if-not-in-cl-package "pprint-logical-block") nil)
697(deftest symbol-pprint-newline (test-if-not-in-cl-package "pprint-newline") nil)
698(deftest symbol-pprint-pop (test-if-not-in-cl-package "pprint-pop") nil)
699(deftest symbol-pprint-tab (test-if-not-in-cl-package "pprint-tab") nil)
700(deftest symbol-pprint-tabular (test-if-not-in-cl-package "pprint-tabular") nil)
701(deftest symbol-prin1 (test-if-not-in-cl-package "prin1") nil)
702(deftest symbol-prin1-to-string (test-if-not-in-cl-package "prin1-to-string") nil)
703(deftest symbol-princ (test-if-not-in-cl-package "princ") nil)
704(deftest symbol-princ-to-string (test-if-not-in-cl-package "princ-to-string") nil)
705(deftest symbol-print (test-if-not-in-cl-package "print") nil)
706(deftest symbol-print-not-readable (test-if-not-in-cl-package "print-not-readable") nil)
707(deftest symbol-print-not-readable-object (test-if-not-in-cl-package "print-not-readable-object") nil)
708(deftest symbol-print-object (test-if-not-in-cl-package "print-object") nil)
709(deftest symbol-print-unreadable-object (test-if-not-in-cl-package "print-unreadable-object") nil)
710(deftest symbol-probe-file (test-if-not-in-cl-package "probe-file") nil)
711(deftest symbol-proclaim (test-if-not-in-cl-package "proclaim") nil)
712(deftest symbol-prog (test-if-not-in-cl-package "prog") nil)
713(deftest symbol-prog* (test-if-not-in-cl-package "prog*") nil)
714(deftest symbol-prog1 (test-if-not-in-cl-package "prog1") nil)
715(deftest symbol-prog2 (test-if-not-in-cl-package "prog2") nil)
716(deftest symbol-progn (test-if-not-in-cl-package "progn") nil)
717(deftest symbol-program-error (test-if-not-in-cl-package "program-error") nil)
718(deftest symbol-progv (test-if-not-in-cl-package "progv") nil)
719(deftest symbol-provide (test-if-not-in-cl-package "provide") nil)
720(deftest symbol-psetf (test-if-not-in-cl-package "psetf") nil)
721(deftest symbol-psetq (test-if-not-in-cl-package "psetq") nil)
722(deftest symbol-push (test-if-not-in-cl-package "push") nil)
723(deftest symbol-pushnew (test-if-not-in-cl-package "pushnew") nil)
724(deftest symbol-quote (test-if-not-in-cl-package "quote") nil)
725(deftest symbol-random (test-if-not-in-cl-package "random") nil)
726(deftest symbol-random-state (test-if-not-in-cl-package "random-state") nil)
727(deftest symbol-random-state-p (test-if-not-in-cl-package "random-state-p") nil)
728(deftest symbol-rassoc (test-if-not-in-cl-package "rassoc") nil)
729(deftest symbol-rassoc-if (test-if-not-in-cl-package "rassoc-if") nil)
730(deftest symbol-rassoc-if-not (test-if-not-in-cl-package "rassoc-if-not") nil)
731(deftest symbol-ratio (test-if-not-in-cl-package "ratio") nil)
732(deftest symbol-rational (test-if-not-in-cl-package "rational") nil)
733(deftest symbol-rationalize (test-if-not-in-cl-package "rationalize") nil)
734(deftest symbol-rationalp (test-if-not-in-cl-package "rationalp") nil)
735(deftest symbol-read (test-if-not-in-cl-package "read") nil)
736(deftest symbol-read-byte (test-if-not-in-cl-package "read-byte") nil)
737(deftest symbol-read-char (test-if-not-in-cl-package "read-char") nil)
738(deftest symbol-read-char-no-hang (test-if-not-in-cl-package "read-char-no-hang") nil)
739(deftest symbol-read-delimited-list (test-if-not-in-cl-package "read-delimited-list") nil)
740(deftest symbol-read-from-string (test-if-not-in-cl-package "read-from-string") nil)
741(deftest symbol-read-line (test-if-not-in-cl-package "read-line") nil)
742(deftest symbol-read-preserving-whitespace (test-if-not-in-cl-package "read-preserving-whitespace") nil)
743(deftest symbol-read-sequence (test-if-not-in-cl-package "read-sequence") nil)
744(deftest symbol-reader-error (test-if-not-in-cl-package "reader-error") nil)
745(deftest symbol-readtable (test-if-not-in-cl-package "readtable") nil)
746(deftest symbol-readtable-case (test-if-not-in-cl-package "readtable-case") nil)
747(deftest symbol-readtablep (test-if-not-in-cl-package "readtablep") nil)
748(deftest symbol-real (test-if-not-in-cl-package "real") nil)
749(deftest symbol-realp (test-if-not-in-cl-package "realp") nil)
750(deftest symbol-realpart (test-if-not-in-cl-package "realpart") nil)
751(deftest symbol-reduce (test-if-not-in-cl-package "reduce") nil)
752(deftest symbol-reinitialize-instance (test-if-not-in-cl-package "reinitialize-instance") nil)
753(deftest symbol-rem (test-if-not-in-cl-package "rem") nil)
754(deftest symbol-remf (test-if-not-in-cl-package "remf") nil)
755(deftest symbol-remhash (test-if-not-in-cl-package "remhash") nil)
756(deftest symbol-remove (test-if-not-in-cl-package "remove") nil)
757(deftest symbol-remove-duplicates (test-if-not-in-cl-package "remove-duplicates") nil)
758(deftest symbol-remove-if (test-if-not-in-cl-package "remove-if") nil)
759(deftest symbol-remove-if-not (test-if-not-in-cl-package "remove-if-not") nil)
760(deftest symbol-remove-method (test-if-not-in-cl-package "remove-method") nil)
761(deftest symbol-remprop (test-if-not-in-cl-package "remprop") nil)
762(deftest symbol-rename-file (test-if-not-in-cl-package "rename-file") nil)
763(deftest symbol-rename-package (test-if-not-in-cl-package "rename-package") nil)
764(deftest symbol-replace (test-if-not-in-cl-package "replace") nil)
765(deftest symbol-require (test-if-not-in-cl-package "require") nil)
766(deftest symbol-rest (test-if-not-in-cl-package "rest") nil)
767(deftest symbol-restart (test-if-not-in-cl-package "restart") nil)
768(deftest symbol-restart-bind (test-if-not-in-cl-package "restart-bind") nil)
769(deftest symbol-restart-case (test-if-not-in-cl-package "restart-case") nil)
770(deftest symbol-restart-name (test-if-not-in-cl-package "restart-name") nil)
771(deftest symbol-return (test-if-not-in-cl-package "return") nil)
772(deftest symbol-return-from (test-if-not-in-cl-package "return-from") nil)
773(deftest symbol-revappend (test-if-not-in-cl-package "revappend") nil)
774(deftest symbol-reverse (test-if-not-in-cl-package "reverse") nil)
775(deftest symbol-room (test-if-not-in-cl-package "room") nil)
776(deftest symbol-rotatef (test-if-not-in-cl-package "rotatef") nil)
777(deftest symbol-round (test-if-not-in-cl-package "round") nil)
778(deftest symbol-row-major-aref (test-if-not-in-cl-package "row-major-aref") nil)
779(deftest symbol-rplaca (test-if-not-in-cl-package "rplaca") nil)
780(deftest symbol-rplacd (test-if-not-in-cl-package "rplacd") nil)
781(deftest symbol-safety (test-if-not-in-cl-package "safety") nil)
782(deftest symbol-satisfies (test-if-not-in-cl-package "satisfies") nil)
783(deftest symbol-sbit (test-if-not-in-cl-package "sbit") nil)
784(deftest symbol-scale-float (test-if-not-in-cl-package "scale-float") nil)
785(deftest symbol-schar (test-if-not-in-cl-package "schar") nil)
786(deftest symbol-search (test-if-not-in-cl-package "search") nil)
787(deftest symbol-second (test-if-not-in-cl-package "second") nil)
788(deftest symbol-sequence (test-if-not-in-cl-package "sequence") nil)
789(deftest symbol-serious-condition (test-if-not-in-cl-package "serious-condition") nil)
790(deftest symbol-set (test-if-not-in-cl-package "set") nil)
791(deftest symbol-set-difference (test-if-not-in-cl-package "set-difference") nil)
792(deftest symbol-set-dispatch-macro-character (test-if-not-in-cl-package "set-dispatch-macro-character") nil)
793(deftest symbol-set-exclusive-or (test-if-not-in-cl-package "set-exclusive-or") nil)
794(deftest symbol-set-macro-character (test-if-not-in-cl-package "set-macro-character") nil)
795(deftest symbol-set-pprint-dispatch (test-if-not-in-cl-package "set-pprint-dispatch") nil)
796(deftest symbol-set-syntax-from-char (test-if-not-in-cl-package "set-syntax-from-char") nil)
797(deftest symbol-setf (test-if-not-in-cl-package "setf") nil)
798(deftest symbol-setq (test-if-not-in-cl-package "setq") nil)
799(deftest symbol-seventh (test-if-not-in-cl-package "seventh") nil)
800(deftest symbol-shadow (test-if-not-in-cl-package "shadow") nil)
801(deftest symbol-shadowing-import (test-if-not-in-cl-package "shadowing-import") nil)
802(deftest symbol-shared-initialize (test-if-not-in-cl-package "shared-initialize") nil)
803(deftest symbol-shiftf (test-if-not-in-cl-package "shiftf") nil)
804(deftest symbol-short-float (test-if-not-in-cl-package "short-float") nil)
805(deftest symbol-short-float-epsilon (test-if-not-in-cl-package "short-float-epsilon") nil)
806(deftest symbol-short-float-negative-epsilon (test-if-not-in-cl-package "short-float-negative-epsilon") nil)
807(deftest symbol-short-site-name (test-if-not-in-cl-package "short-site-name") nil)
808(deftest symbol-signal (test-if-not-in-cl-package "signal") nil)
809(deftest symbol-signed-byte (test-if-not-in-cl-package "signed-byte") nil)
810(deftest symbol-signum (test-if-not-in-cl-package "signum") nil)
811(deftest symbol-simple-array (test-if-not-in-cl-package "simple-array") nil)
812(deftest symbol-simple-base-string (test-if-not-in-cl-package "simple-base-string") nil)
813(deftest symbol-simple-bit-vector (test-if-not-in-cl-package "simple-bit-vector") nil)
814(deftest symbol-simple-bit-vector-p (test-if-not-in-cl-package "simple-bit-vector-p") nil)
815(deftest symbol-simple-condition (test-if-not-in-cl-package "simple-condition") nil)
816(deftest symbol-simple-condition-format-arguments (test-if-not-in-cl-package "simple-condition-format-arguments") nil)
817(deftest symbol-simple-condition-format-control (test-if-not-in-cl-package "simple-condition-format-control") nil)
818(deftest symbol-simple-error (test-if-not-in-cl-package "simple-error") nil)
819(deftest symbol-simple-string (test-if-not-in-cl-package "simple-string") nil)
820(deftest symbol-simple-string-p (test-if-not-in-cl-package "simple-string-p") nil)
821(deftest symbol-simple-type-error (test-if-not-in-cl-package "simple-type-error") nil)
822(deftest symbol-simple-vector (test-if-not-in-cl-package "simple-vector") nil)
823(deftest symbol-simple-vector-p (test-if-not-in-cl-package "simple-vector-p") nil)
824(deftest symbol-simple-warning (test-if-not-in-cl-package "simple-warning") nil)
825(deftest symbol-sin (test-if-not-in-cl-package "sin") nil)
826(deftest symbol-single-float (test-if-not-in-cl-package "single-float") nil)
827(deftest symbol-single-float-epsilon (test-if-not-in-cl-package "single-float-epsilon") nil)
828(deftest symbol-single-float-negative-epsilon (test-if-not-in-cl-package "single-float-negative-epsilon") nil)
829(deftest symbol-sinh (test-if-not-in-cl-package "sinh") nil)
830(deftest symbol-sixth (test-if-not-in-cl-package "sixth") nil)
831(deftest symbol-sleep (test-if-not-in-cl-package "sleep") nil)
832(deftest symbol-slot-boundp (test-if-not-in-cl-package "slot-boundp") nil)
833(deftest symbol-slot-exists-p (test-if-not-in-cl-package "slot-exists-p") nil)
834(deftest symbol-slot-makunbound (test-if-not-in-cl-package "slot-makunbound") nil)
835(deftest symbol-slot-missing (test-if-not-in-cl-package "slot-missing") nil)
836(deftest symbol-slot-unbound (test-if-not-in-cl-package "slot-unbound") nil)
837(deftest symbol-slot-value (test-if-not-in-cl-package "slot-value") nil)
838(deftest symbol-software-type (test-if-not-in-cl-package "software-type") nil)
839(deftest symbol-software-version (test-if-not-in-cl-package "software-version") nil)
840(deftest symbol-some (test-if-not-in-cl-package "some") nil)
841(deftest symbol-sort (test-if-not-in-cl-package "sort") nil)
842(deftest symbol-space (test-if-not-in-cl-package "space") nil)
843(deftest symbol-special (test-if-not-in-cl-package "special") nil)
844(deftest symbol-special-operator-p (test-if-not-in-cl-package "special-operator-p") nil)
845(deftest symbol-speed (test-if-not-in-cl-package "speed") nil)
846(deftest symbol-sqrt (test-if-not-in-cl-package "sqrt") nil)
847(deftest symbol-stable-sort (test-if-not-in-cl-package "stable-sort") nil)
848(deftest symbol-standard (test-if-not-in-cl-package "standard") nil)
849(deftest symbol-standard-char (test-if-not-in-cl-package "standard-char") nil)
850(deftest symbol-standard-char-p (test-if-not-in-cl-package "standard-char-p") nil)
851(deftest symbol-standard-class (test-if-not-in-cl-package "standard-class") nil)
852(deftest symbol-standard-generic-function (test-if-not-in-cl-package "standard-generic-function") nil)
853(deftest symbol-standard-method (test-if-not-in-cl-package "standard-method") nil)
854(deftest symbol-standard-object (test-if-not-in-cl-package "standard-object") nil)
855(deftest symbol-step (test-if-not-in-cl-package "step") nil)
856(deftest symbol-storage-condition (test-if-not-in-cl-package "storage-condition") nil)
857(deftest symbol-store-value (test-if-not-in-cl-package "store-value") nil)
858(deftest symbol-stream (test-if-not-in-cl-package "stream") nil)
859(deftest symbol-stream-element-type (test-if-not-in-cl-package "stream-element-type") nil)
860(deftest symbol-stream-error (test-if-not-in-cl-package "stream-error") nil)
861(deftest symbol-stream-error-stream (test-if-not-in-cl-package "stream-error-stream") nil)
862(deftest symbol-stream-external-format (test-if-not-in-cl-package "stream-external-format") nil)
863(deftest symbol-streamp (test-if-not-in-cl-package "streamp") nil)
864(deftest symbol-string (test-if-not-in-cl-package "string") nil)
865(deftest symbol-string-capitalize (test-if-not-in-cl-package "string-capitalize") nil)
866(deftest symbol-string-downcase (test-if-not-in-cl-package "string-downcase") nil)
867(deftest symbol-string-equal (test-if-not-in-cl-package "string-equal") nil)
868(deftest symbol-string-greaterp (test-if-not-in-cl-package "string-greaterp") nil)
869(deftest symbol-string-left-trim (test-if-not-in-cl-package "string-left-trim") nil)
870(deftest symbol-string-lessp (test-if-not-in-cl-package "string-lessp") nil)
871(deftest symbol-string-not-equal (test-if-not-in-cl-package "string-not-equal") nil)
872(deftest symbol-string-not-greaterp (test-if-not-in-cl-package "string-not-greaterp") nil)
873(deftest symbol-string-not-lessp (test-if-not-in-cl-package "string-not-lessp") nil)
874(deftest symbol-string-right-trim (test-if-not-in-cl-package "string-right-trim") nil)
875(deftest symbol-string-stream (test-if-not-in-cl-package "string-stream") nil)
876(deftest symbol-string-trim (test-if-not-in-cl-package "string-trim") nil)
877(deftest symbol-string-upcase (test-if-not-in-cl-package "string-upcase") nil)
878(deftest symbol-string/= (test-if-not-in-cl-package "string/=") nil)
879(deftest symbol-string< (test-if-not-in-cl-package "string<") nil)
880(deftest symbol-string<= (test-if-not-in-cl-package "string<=") nil)
881(deftest symbol-string= (test-if-not-in-cl-package "string=") nil)
882(deftest symbol-string> (test-if-not-in-cl-package "string>") nil)
883(deftest symbol-string>= (test-if-not-in-cl-package "string>=") nil)
884(deftest symbol-stringp (test-if-not-in-cl-package "stringp") nil)
885(deftest symbol-structure (test-if-not-in-cl-package "structure") nil)
886(deftest symbol-structure-class (test-if-not-in-cl-package "structure-class") nil)
887(deftest symbol-structure-object (test-if-not-in-cl-package "structure-object") nil)
888(deftest symbol-style-warning (test-if-not-in-cl-package "style-warning") nil)
889(deftest symbol-sublis (test-if-not-in-cl-package "sublis") nil)
890(deftest symbol-subseq (test-if-not-in-cl-package "subseq") nil)
891(deftest symbol-subsetp (test-if-not-in-cl-package "subsetp") nil)
892(deftest symbol-subst (test-if-not-in-cl-package "subst") nil)
893(deftest symbol-subst-if (test-if-not-in-cl-package "subst-if") nil)
894(deftest symbol-subst-if-not (test-if-not-in-cl-package "subst-if-not") nil)
895(deftest symbol-substitute (test-if-not-in-cl-package "substitute") nil)
896(deftest symbol-substitute-if (test-if-not-in-cl-package "substitute-if") nil)
897(deftest symbol-substitute-if-not (test-if-not-in-cl-package "substitute-if-not") nil)
898(deftest symbol-subtypep (test-if-not-in-cl-package "subtypep") nil)
899(deftest symbol-svref (test-if-not-in-cl-package "svref") nil)
900(deftest symbol-sxhash (test-if-not-in-cl-package "sxhash") nil)
901(deftest symbol-symbol (test-if-not-in-cl-package "symbol") nil)
902(deftest symbol-symbol-function (test-if-not-in-cl-package "symbol-function") nil)
903(deftest symbol-symbol-macrolet (test-if-not-in-cl-package "symbol-macrolet") nil)
904(deftest symbol-symbol-name (test-if-not-in-cl-package "symbol-name") nil)
905(deftest symbol-symbol-package (test-if-not-in-cl-package "symbol-package") nil)
906(deftest symbol-symbol-plist (test-if-not-in-cl-package "symbol-plist") nil)
907(deftest symbol-symbol-value (test-if-not-in-cl-package "symbol-value") nil)
908(deftest symbol-symbolp (test-if-not-in-cl-package "symbolp") nil)
909(deftest symbol-synonym-stream (test-if-not-in-cl-package "synonym-stream") nil)
910(deftest symbol-synonym-stream-symbol (test-if-not-in-cl-package "synonym-stream-symbol") nil)
911(deftest symbol-t (test-if-not-in-cl-package "t") nil)
912(deftest symbol-tagbody (test-if-not-in-cl-package "tagbody") nil)
913(deftest symbol-tailp (test-if-not-in-cl-package "tailp") nil)
914(deftest symbol-tan (test-if-not-in-cl-package "tan") nil)
915(deftest symbol-tanh (test-if-not-in-cl-package "tanh") nil)
916(deftest symbol-tenth (test-if-not-in-cl-package "tenth") nil)
917(deftest symbol-terpri (test-if-not-in-cl-package "terpri") nil)
918(deftest symbol-the (test-if-not-in-cl-package "the") nil)
919(deftest symbol-third (test-if-not-in-cl-package "third") nil)
920(deftest symbol-throw (test-if-not-in-cl-package "throw") nil)
921(deftest symbol-time (test-if-not-in-cl-package "time") nil)
922(deftest symbol-trace (test-if-not-in-cl-package "trace") nil)
923(deftest symbol-translate-logical-pathname (test-if-not-in-cl-package "translate-logical-pathname") nil)
924(deftest symbol-translate-pathname (test-if-not-in-cl-package "translate-pathname") nil)
925(deftest symbol-tree-equal (test-if-not-in-cl-package "tree-equal") nil)
926(deftest symbol-truename (test-if-not-in-cl-package "truename") nil)
927(deftest symbol-truncate (test-if-not-in-cl-package "truncate") nil)
928(deftest symbol-two-way-stream (test-if-not-in-cl-package "two-way-stream") nil)
929(deftest symbol-two-way-stream-input-stream (test-if-not-in-cl-package "two-way-stream-input-stream") nil)
930(deftest symbol-two-way-stream-output-stream (test-if-not-in-cl-package "two-way-stream-output-stream") nil)
931(deftest symbol-type (test-if-not-in-cl-package "type") nil)
932(deftest symbol-type-error (test-if-not-in-cl-package "type-error") nil)
933(deftest symbol-type-error-datum (test-if-not-in-cl-package "type-error-datum") nil)
934(deftest symbol-type-error-expected-type (test-if-not-in-cl-package "type-error-expected-type") nil)
935(deftest symbol-type-of (test-if-not-in-cl-package "type-of") nil)
936(deftest symbol-typecase (test-if-not-in-cl-package "typecase") nil)
937(deftest symbol-typep (test-if-not-in-cl-package "typep") nil)
938(deftest symbol-unbound-slot (test-if-not-in-cl-package "unbound-slot") nil)
939(deftest symbol-unbound-slot-instance (test-if-not-in-cl-package "unbound-slot-instance") nil)
940(deftest symbol-unbound-variable (test-if-not-in-cl-package "unbound-variable") nil)
941(deftest symbol-undefined-function (test-if-not-in-cl-package "undefined-function") nil)
942(deftest symbol-unexport (test-if-not-in-cl-package "unexport") nil)
943(deftest symbol-unintern (test-if-not-in-cl-package "unintern") nil)
944(deftest symbol-union (test-if-not-in-cl-package "union") nil)
945(deftest symbol-unless (test-if-not-in-cl-package "unless") nil)
946(deftest symbol-unread-char (test-if-not-in-cl-package "unread-char") nil)
947(deftest symbol-unsigned-byte (test-if-not-in-cl-package "unsigned-byte") nil)
948(deftest symbol-untrace (test-if-not-in-cl-package "untrace") nil)
949(deftest symbol-unuse-package (test-if-not-in-cl-package "unuse-package") nil)
950(deftest symbol-unwind-protect (test-if-not-in-cl-package "unwind-protect") nil)
951(deftest symbol-update-instance-for-different-class (test-if-not-in-cl-package "update-instance-for-different-class") nil)
952(deftest symbol-update-instance-for-redefined-class (test-if-not-in-cl-package "update-instance-for-redefined-class") nil)
953(deftest symbol-upgraded-array-element-type (test-if-not-in-cl-package "upgraded-array-element-type") nil)
954(deftest symbol-upgraded-complex-part-type (test-if-not-in-cl-package "upgraded-complex-part-type") nil)
955(deftest symbol-upper-case-p (test-if-not-in-cl-package "upper-case-p") nil)
956(deftest symbol-use-package (test-if-not-in-cl-package "use-package") nil)
957(deftest symbol-use-value (test-if-not-in-cl-package "use-value") nil)
958(deftest symbol-user-homedir-pathname (test-if-not-in-cl-package "user-homedir-pathname") nil)
959(deftest symbol-values (test-if-not-in-cl-package "values") nil)
960(deftest symbol-values-list (test-if-not-in-cl-package "values-list") nil)
961(deftest symbol-variable (test-if-not-in-cl-package "variable") nil)
962(deftest symbol-vector (test-if-not-in-cl-package "vector") nil)
963(deftest symbol-vector-pop (test-if-not-in-cl-package "vector-pop") nil)
964(deftest symbol-vector-push (test-if-not-in-cl-package "vector-push") nil)
965(deftest symbol-vector-push-extend (test-if-not-in-cl-package "vector-push-extend") nil)
966(deftest symbol-vectorp (test-if-not-in-cl-package "vectorp") nil)
967(deftest symbol-warn (test-if-not-in-cl-package "warn") nil)
968(deftest symbol-warning (test-if-not-in-cl-package "warning") nil)
969(deftest symbol-when (test-if-not-in-cl-package "when") nil)
970(deftest symbol-wild-pathname-p (test-if-not-in-cl-package "wild-pathname-p") nil)
971(deftest symbol-with-accessors (test-if-not-in-cl-package "with-accessors") nil)
972(deftest symbol-with-compilation-unit (test-if-not-in-cl-package "with-compilation-unit") nil)
973(deftest symbol-with-condition-restarts (test-if-not-in-cl-package "with-condition-restarts") nil)
974(deftest symbol-with-hash-table-iterator (test-if-not-in-cl-package "with-hash-table-iterator") nil)
975(deftest symbol-with-input-from-string (test-if-not-in-cl-package "with-input-from-string") nil)
976(deftest symbol-with-open-file (test-if-not-in-cl-package "with-open-file") nil)
977(deftest symbol-with-open-stream (test-if-not-in-cl-package "with-open-stream") nil)
978(deftest symbol-with-output-to-string (test-if-not-in-cl-package "with-output-to-string") nil)
979(deftest symbol-with-package-iterator (test-if-not-in-cl-package "with-package-iterator") nil)
980(deftest symbol-with-simple-restart (test-if-not-in-cl-package "with-simple-restart") nil)
981(deftest symbol-with-slots (test-if-not-in-cl-package "with-slots") nil)
982(deftest symbol-with-standard-io-syntax (test-if-not-in-cl-package "with-standard-io-syntax") nil)
983(deftest symbol-write (test-if-not-in-cl-package "write") nil)
984(deftest symbol-write-byte (test-if-not-in-cl-package "write-byte") nil)
985(deftest symbol-write-char (test-if-not-in-cl-package "write-char") nil)
986(deftest symbol-write-line (test-if-not-in-cl-package "write-line") nil)
987(deftest symbol-write-sequence (test-if-not-in-cl-package "write-sequence") nil)
988(deftest symbol-write-string (test-if-not-in-cl-package "write-string") nil)
989(deftest symbol-write-to-string (test-if-not-in-cl-package "write-to-string") nil)
990(deftest symbol-y-or-n-p (test-if-not-in-cl-package "y-or-n-p") nil)
991(deftest symbol-yes-or-no-p (test-if-not-in-cl-package "yes-or-no-p") nil)
992(deftest symbol-zerop (test-if-not-in-cl-package "zerop") nil)
993
994;;; Standardized packages have the right names, nicknames
995
996(deftest keyword-package-nicknames
997  :notes :standardized-package-nicknames
998  (package-nicknames (find-package "KEYWORD"))
999  nil)
1000
1001(deftest common-lisp-package-nicknames
1002  :notes :standardized-package-nicknames
1003  (package-nicknames (find-package "COMMON-LISP"))
1004  ("CL"))
1005
1006(deftest common-lisp-user-package-nicknames
1007  :notes :standardized-package-nicknames
1008  (package-nicknames (find-package "COMMON-LISP-USER"))
1009  ("CL-USER"))
1010
1011
1012;;; Test there are no extra exported symbols
1013
1014(deftest no-extra-symbols-exported-from-common-lisp
1015  (let ((ht (make-hash-table :test 'equal)))
1016    (loop for n in *cl-symbol-names* do (setf (gethash n ht) t))
1017    (let ((extras nil))
1018      (do-external-symbols (s "CL")
1019                           (unless (gethash (symbol-name s) ht)
1020                             (push s extras)))
1021      extras))
1022  nil)
1023
1024;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1025;;; Test that all keywords have themselves as their value,
1026;;; are external if present in KEYWORD, and have themselves
1027;;; as their values (and are constant).  Symbols that are
1028;;; merely used in KEYWORD but not present there are exempt.
1029
1030(deftest keyword-behavior
1031  (let ((result nil)
1032        (keyword-package (find-package "KEYWORD")))
1033    (do-symbols (s keyword-package result)
1034      (multiple-value-bind (sym status)
1035          (find-symbol (symbol-name s) keyword-package)
1036        (cond
1037         ((not (eqt s sym)) (push (list s sym) result))
1038         ((eqt status :internal)
1039          (push (list s status) result))
1040         ((eqt status :external)
1041          (unless (and (eqt (symbol-value s) s)
1042                       (constantp s))
1043            (push (list s sym 'not-constant) result)))))))
1044  nil)
1045
1046;;;;;;;;;;;;;;;;;;;;
1047
1048;;; Tests of CL package constraints from section 11.1.2.1.1
1049
1050;;; Check that all symbols listed as 'functions' or 'accessors'
1051;;; are indeed functions.
1052
1053(deftest cl-function-symbols.1
1054  (loop
1055   for s in (append *cl-function-symbols* *cl-accessor-symbols*)
1056   when (or (not (fboundp s))
1057            (macro-function s)
1058            (special-operator-p s)
1059            (not (symbol-function s)))
1060   collect s)
1061  nil)
1062
1063;;; Check that all symols listed as 'macros' are macros.
1064
1065(deftest cl-macro-symbols.1
1066  (loop
1067   for s in *cl-macro-symbols*
1068   when (or (not (fboundp s))
1069            (not (macro-function s)))
1070   collect s)
1071  nil)
1072
1073;;; Check that all constants are indeed constant
1074
1075(deftest cl-constant-symbols.1
1076  (loop
1077   for s in *cl-constant-symbols*
1078   when (or (not (boundp s))
1079            (not (constantp s)))
1080   collect s)
1081  nil)
1082
1083;;; Check that all global variables have values
1084
1085(deftest cl-variable-symbols.1
1086  (loop
1087   for s in *cl-variable-symbols*
1088   when (not (boundp s))
1089   collect s)
1090  nil)
1091           
1092;;; Check that all types that are classes name classes.
1093
1094;;; "Many but not all of the predefined type specifiers have
1095;;;  a corresponding class with the same proper name as the type.
1096;;;  These type specifiers are listed in Figure 4-8." -- section 4.3.7
1097
1098(deftest cl-types-that-are-classes.1
1099  ;; Collect class names that violate the condition in the
1100  ;; above quotation.
1101  (loop
1102   for s in *cl-types-that-are-classes-symbols*
1103   for c = (find-class s nil)
1104   unless (and c
1105               (eq (class-name c) s)
1106               (typep c 'class))
1107   collect s)
1108  nil)
1109
1110
1111(deftest cl-types-that-are-classes.2
1112  ;; The same as cl-types-that-are-classes.1
1113  ;; with an environment argument
1114  (loop
1115   for s in *cl-types-that-are-classes-symbols*
1116   for c = (find-class s nil nil)
1117   unless (and c
1118               (eq (class-name c) s)
1119               (typep c 'class))
1120   collect s)
1121  nil)
1122
1123(deftest cl-types-that-are-classes.3
1124  ;; The same as cl-types-that-are-classes.1,
1125  ;; with an environment argument
1126  (loop
1127   for s in *cl-types-that-are-classes-symbols*
1128   for c = (eval `(macrolet ((%foo (&environment env)
1129                                   (list 'quote
1130                                         (find-class ',s nil env))))
1131                    (%foo)))
1132   unless (and c
1133               (eq (class-name c) s)
1134               (typep c 'class))
1135   collect s)
1136  nil)
1137
1138;;; Various error cases for symbol-related functions
1139
1140(deftest symbol-package.error.1
1141  (signals-error (symbol-package) program-error)
1142  t)
1143
1144(deftest symbol-package.error.2
1145  (signals-error (symbol-package 'cons nil) program-error)
1146  t)
1147
1148(deftest symbol-package.error.3
1149  (check-type-error #'symbol-package #'symbolp)
1150  nil)
1151
1152
1153(deftest symbol-plist.error.1
1154  (signals-error (symbol-plist) program-error)
1155  t)
1156
1157(deftest symbol-plist.error.2
1158  (signals-error (symbol-plist 'cons nil) program-error)
1159  t)
1160
1161(deftest symbol-plist.error.3
1162  (check-type-error #'symbol-plist #'symbolp)
1163  nil)
1164
1165(deftest symbol-plist.error.4
1166  (check-type-error #'(lambda (x) (setf (symbol-plist x) nil))
1167                    #'symbolp)
1168  nil)
1169
1170
1171
1172(deftest symbol-value.error.1
1173  (signals-error (symbol-value) program-error)
1174  t)
1175
1176(deftest symbol-value.error.2
1177  (signals-error (symbol-value '*package* nil) program-error)
1178  t)
1179
1180(deftest symbol-value.error.3
1181  (check-type-error #'symbol-value #'symbolp)
1182  nil)
1183
1184(deftest symbol-value.error.4
1185  (check-type-error #'(lambda (x) (setf (symbol-value x) nil)) #'symbolp)
1186  nil)
1187
1188(deftest symbol-value.error.5
1189  (let ((sym (gensym)))
1190    (declare (optimize safety))
1191    (handler-case (progn (symbol-value sym) :bad)
1192                  (unbound-variable (c)
1193                                    (assert (eq (cell-error-name c) sym))
1194                                    :good)))
1195  :good)
Note: See TracBrowser for help on using the repository browser.