290 |
(functionp (function ,p-fn)) |
(functionp (function ,p-fn)) |
291 |
(symbol-function (quote ,p-fn)) |
(symbol-function (quote ,p-fn)) |
292 |
(notnot (funcall #',p-fn s)) |
(notnot (funcall #',p-fn s)) |
293 |
(notnot (,p-fn s)) |
(notnot-mv (,p-fn s)) |
294 |
)) |
)) |
295 |
t) |
t) |
296 |
(deftest ,(make-struct-test-name name "ERROR.1") |
(deftest ,(make-struct-test-name name "ERROR.1") |
455 |
for read-only in slot-read-only |
for read-only in slot-read-only |
456 |
for field-fn in field-fns |
for field-fn in field-fns |
457 |
when read-only |
when read-only |
458 |
collect `(not (fboundp '(setf ,field-fn)))) |
collect `(not-mv (fboundp '(setf ,field-fn)))) |
459 |
t) |
t) |
460 |
t))) |
t))) |
461 |
|
|
464 |
,@(unless type-option |
,@(unless type-option |
465 |
`( |
`( |
466 |
(deftest ,(make-struct-test-name name 13) |
(deftest ,(make-struct-test-name name 13) |
467 |
(notnot (typep (,make-fn) (find-class (quote ,name)))) |
(notnot-mv (typep (,make-fn) (find-class (quote ,name)))) |
468 |
t) |
t) |
469 |
(deftest ,(make-struct-test-name name 14) |
(deftest ,(make-struct-test-name name 14) |
470 |
(let ((class (find-class (quote ,name)))) |
(let ((class (find-class (quote ,name)))) |
471 |
(notnot (typep class 'structure-class))) |
(notnot-mv (typep class 'structure-class))) |
472 |
t) |
t) |
473 |
(deftest ,(make-struct-test-name name 15) |
(deftest ,(make-struct-test-name name 15) |
474 |
(notnot (typep (,make-fn) 'structure-object)) |
(notnot-mv (typep (,make-fn) 'structure-object)) |
475 |
t) |
t) |
476 |
(deftest ,(make-struct-test-name name 16) |
(deftest ,(make-struct-test-name name 16) |
477 |
(loop for type in *disjoint-types-list* |
(loop for type in *disjoint-types-list* |