6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest readtablep.1 |
(deftest readtablep.1 |
9 |
(notnot-mv (readtablep *readtable*)) |
(and (not (readtablep nil)) |
10 |
|
(not (readtablep 'a)) |
11 |
|
(not (readtablep 0)) |
12 |
|
(not (readtablep 1/2)) |
13 |
|
(not (readtablep 1.2)) |
14 |
|
(not (readtablep 1.2s2)) |
15 |
|
(not (readtablep 1.2f3)) |
16 |
|
(not (readtablep 1.2e2)) |
17 |
|
(not (readtablep 1.2d2)) |
18 |
|
(not (readtablep (list 'a))) |
19 |
|
(not (readtablep "abcde")) |
20 |
|
(not (readtablep t)) |
21 |
|
(not (readtablep '*readtable*)) |
22 |
|
(not (readtablep (make-array '(10)))) |
23 |
|
(not (readtablep (make-array '(10) :element-type 'fixnum))) |
24 |
|
(not (readtablep (make-array '(10) :element-type 'float))) |
25 |
|
(not (readtablep (make-array '(10) :element-type 'double-float))) |
26 |
|
(not (readtablep (make-array '(10) :element-type 'string))) |
27 |
|
(not (readtablep (make-array '(10) :element-type 'character))) |
28 |
|
(not (readtablep (make-array '(10) :element-type 'bit))) |
29 |
|
(not (readtablep (make-array '(10) :element-type 'boolean))) |
30 |
|
(not (not (readtablep (copy-readtable)))) |
31 |
|
(not (readtablep #'car)) |
32 |
|
) |
33 |
t) |
t) |
34 |
|
|
35 |
(deftest readtablep.2 |
(deftest readtablep.2 |
36 |
(loop for x in *universe* |
(loop for x in *universe* |
37 |
unless (if (readtablep x) (typep x 'readtable) |
unless (if (typep x 'readtable) (readtablep x) |
38 |
(not (typep x 'readtable))) |
(not (readtablep x))) |
39 |
collect x) |
collect x) |
40 |
nil) |
nil) |
41 |
|
|
42 |
(deftest readtablep.3 |
(deftest readtablep.3 |
43 |
|
(notnot-mv (readtablep *readtable*)) |
44 |
|
t) |
45 |
|
|
46 |
|
(deftest readtablep.4 |
47 |
(notnot-mv (readtablep (copy-readtable))) |
(notnot-mv (readtablep (copy-readtable))) |
48 |
t) |
t) |
49 |
|
|
60 |
(deftest readtablep.error.3 |
(deftest readtablep.error.3 |
61 |
(signals-error (readtablep *readtable* nil t t t t) program-error) |
(signals-error (readtablep *readtable* nil t t t t) program-error) |
62 |
t) |
t) |
|
|
|
|
|
|
|
|
|