14 |
"1234abcdABCD") |
"1234abcdABCD") |
15 |
|
|
16 |
(deftest symbol-name.3 |
(deftest symbol-name.3 |
|
(signals-error (symbol-name 1) type-error) |
|
|
t) |
|
|
|
|
|
(deftest symbol-name.4 |
|
|
(signals-error (symbol-name '(a)) type-error) |
|
|
t) |
|
|
|
|
|
(deftest symbol-name.5 |
|
|
(signals-error (symbol-name "ABCDE") type-error) |
|
|
t) |
|
|
|
|
|
(deftest symbol-name.6 |
|
|
(signals-error (symbol-name 12913.0213) type-error) |
|
|
t) |
|
|
|
|
|
(deftest symbol-name.7 |
|
17 |
(symbol-name :|abcdefg|) |
(symbol-name :|abcdefg|) |
18 |
"abcdefg") |
"abcdefg") |
19 |
|
|
28 |
t) |
t) |
29 |
|
|
30 |
(deftest symbol-name.error.3 |
(deftest symbol-name.error.3 |
31 |
(loop for x in *mini-universe* |
(check-type-error #'symbol-name #'symbolp) |
|
for form = `(signals-error (symbol-name ',x) type-error) |
|
|
unless (or (symbolp x) (eval form)) |
|
|
collect x) |
|
32 |
nil) |
nil) |
33 |
|
|
34 |
|
|