1146 |
t) |
t) |
1147 |
|
|
1148 |
(deftest symbol-package.error.3 |
(deftest symbol-package.error.3 |
1149 |
(loop for x in *mini-universe* |
(check-type-error #'symbol-package #'symbolp) |
|
for form = `(signals-type-error x ',x (symbol-package x)) |
|
|
unless (or (symbolp x) (eval form)) |
|
|
collect x) |
|
1150 |
nil) |
nil) |
1151 |
|
|
1152 |
|
|
1159 |
t) |
t) |
1160 |
|
|
1161 |
(deftest symbol-plist.error.3 |
(deftest symbol-plist.error.3 |
1162 |
(loop for x in *mini-universe* |
(check-type-error #'symbol-plist #'symbolp) |
|
for form = `(signals-type-error x ',x (symbol-plist x)) |
|
|
unless (or (symbolp x) (eval form)) |
|
|
collect x) |
|
1163 |
nil) |
nil) |
1164 |
|
|
1165 |
(deftest symbol-plist.error.4 |
(deftest symbol-plist.error.4 |
1166 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) (setf (symbol-plist x) nil)) |
1167 |
for form = `(signals-type-error x ',x (setf (symbol-plist x) |
#'symbolp) |
|
(find-package "CL-USER"))) |
|
|
unless (or (symbolp x) (eval form)) |
|
|
collect x) |
|
1168 |
nil) |
nil) |
1169 |
|
|
1170 |
|
|
1178 |
t) |
t) |
1179 |
|
|
1180 |
(deftest symbol-value.error.3 |
(deftest symbol-value.error.3 |
1181 |
(loop for x in *mini-universe* |
(check-type-error #'symbol-value #'symbolp) |
|
for form = `(signals-type-error x ',x (symbol-value x)) |
|
|
unless (or (symbolp x) (eval form)) |
|
|
collect x) |
|
1182 |
nil) |
nil) |
1183 |
|
|
1184 |
(deftest symbol-value.error.4 |
(deftest symbol-value.error.4 |
1185 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) (setf (symbol-value x) nil)) #'symbolp) |
|
for form = `(signals-type-error x ',x (setf (symbol-value x) nil)) |
|
|
unless (or (symbolp x) (eval form)) |
|
|
collect x) |
|
1186 |
nil) |
nil) |
1187 |
|
|
1188 |
(deftest symbol-value.error.5 |
(deftest symbol-value.error.5 |