5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
|
(declaim (optimize (safety 3))) |
|
|
|
|
8 |
(deftest readtable-valid (not (readtablep *readtable*)) nil) |
(deftest readtable-valid (not (readtablep *readtable*)) nil) |
9 |
(deftest readtablep.1 |
(deftest readtablep.1 |
10 |
(and (not (readtablep nil)) |
(and (not (readtablep nil)) |
33 |
) |
) |
34 |
t) |
t) |
35 |
|
|
36 |
|
(deftest readtablep.2 |
37 |
|
(loop for x in *universe* |
38 |
|
unless (if (typep x 'readtable) (readtablep x) |
39 |
|
(not (readtablep x))) |
40 |
|
collect x) |
41 |
|
nil) |
42 |
|
|
43 |
|
(deftest readtablep.error.1 |
44 |
|
(classify-error (readtablep)) |
45 |
|
program-error) |
46 |
|
|
47 |
|
(deftest readtablep.error.2 |
48 |
|
(classify-error (readtablep nil nil)) |
49 |
|
program-error) |
50 |
|
|
51 |
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
52 |
|
|
53 |
(deftest read-symbol.1 |
(deftest read-symbol.1 |
54 |
(let ((*package* (find-package "CL-TEST"))) |
(let ((*package* (find-package "CL-TEST"))) |
55 |
(ignore-errors (read-from-string "a"))) |
(ignore-errors (read-from-string "a"))) |
167 |
(error (c) c)) |
(error (c) c)) |
168 |
t) |
t) |
169 |
|
|
170 |
|
(deftest read-float.1 |
171 |
|
(eqlt -0.0 (- 0.0)) |
172 |
|
t) |