Parent Directory | Revision Log | Patch
revision 1.15 by pfdietz, Fri Jan 24 04:22:54 2003 UTC | revision 1.16 by pfdietz, Tue Feb 4 02:43:19 2003 UTC | |
---|---|---|
# | Line 496 do the defstruct." | Line 496 do the defstruct." |
496 | '(nil t))) | '(nil t))) |
497 | collect type)) | collect type)) |
498 | nil) | nil) |
499 | (deftest ,(make-struct-test-name name "15A") | |
500 | (let ((class (find-class (quote ,name)))) | |
501 | (notnot-mv (subtypep class 'structure-object))) | |
502 | t t) | |
503 | (deftest ,(make-struct-test-name name "15B") | |
504 | (notnot-mv (subtypep (quote ,name) 'structure-object)) | |
505 | t t) | |
506 | ||
507 | )) | )) |
508 | ||
509 | ;;; Documentation tests | ;;; Documentation tests |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |