109 |
(deftest gentemp.error.1 |
(deftest gentemp.error.1 |
110 |
(loop for x in *mini-universe* |
(loop for x in *mini-universe* |
111 |
unless (or (stringp x) |
unless (or (stringp x) |
112 |
(eql (eval `(signals-error (gentemp ',x) type-error)) t)) |
(eql (eval `(signals-type-error x ',x (gentemp x))) t)) |
113 |
collect x) |
collect x) |
114 |
nil) |
nil) |
115 |
|
|
117 |
(loop for x in *mini-universe* |
(loop for x in *mini-universe* |
118 |
unless (or (typep x 'package) |
unless (or (typep x 'package) |
119 |
(string-designator-p x) |
(string-designator-p x) |
120 |
(eql (eval `(signals-error (gentemp "T" ',x) type-error)) t)) |
(eql (eval `(signals-type-error x ',x (gentemp "T" x))) t)) |
121 |
collect x) |
collect x) |
122 |
nil) |
nil) |
123 |
|
|
124 |
(deftest gentemp.error.3 |
(deftest gentemp.error.3 |
125 |
(signals-error (gentemp "" *package* nil) program-error) |
(signals-error (gentemp "" *package* nil) program-error) |
126 |
t) |
t) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|