47 |
|
|
48 |
(deftest read-symbol.3 |
(deftest read-symbol.3 |
49 |
(multiple-value-bind (s n) |
(multiple-value-bind (s n) |
50 |
(ignore-errors (read-from-string "#:abc")) |
(let () (ignore-errors (read-from-string "#:abc"))) |
51 |
(not |
(not |
52 |
(and (symbolp s) |
(and (symbolp s) |
53 |
(eql n 5) |
(eql n 5) |
57 |
|
|
58 |
(deftest read-symbol.4 |
(deftest read-symbol.4 |
59 |
(multiple-value-bind (s n) |
(multiple-value-bind (s n) |
60 |
(ignore-errors (read-from-string "#:|abc|")) |
(let () (ignore-errors (read-from-string "#:|abc|"))) |
61 |
(not |
(not |
62 |
(and (symbolp s) |
(and (symbolp s) |
63 |
(eql n 7) |
(eql n 7) |
67 |
|
|
68 |
(deftest read-symbol.5 |
(deftest read-symbol.5 |
69 |
(multiple-value-bind (s n) |
(multiple-value-bind (s n) |
70 |
(ignore-errors (read-from-string "#:||")) |
(let () (ignore-errors (read-from-string "#:||"))) |
71 |
(if (not (symbolp s)) |
(if (not (symbolp s)) |
72 |
s |
s |
73 |
(not (not |
(not (not |
91 |
|
|
92 |
(deftest read-symbol.7 |
(deftest read-symbol.7 |
93 |
(multiple-value-bind (s n) |
(multiple-value-bind (s n) |
94 |
(ignore-errors (read-from-string ":ABCD")) |
(let () (ignore-errors (read-from-string ":ABCD"))) |
95 |
(if (not (symbolp s)) |
(if (not (symbolp s)) |
96 |
s |
s |
97 |
(not (not |
(not (not |