Parent Directory | Revision Log | Patch
revision 1.20 by pfdietz, Sun Jul 27 15:30:39 2003 UTC | revision 1.21 by pfdietz, Sat Nov 29 01:56:48 2003 UTC | |
---|---|---|
# | Line 478 | Line 478 |
478 | ||
479 | (defstruct-with-tests struct-test-66 nil) | (defstruct-with-tests struct-test-66 nil) |
480 | ||
481 | (defstruct-with-tests struct-test-67 | |
482 | (a 0 :type (integer 0 (#.(ash 1 32)))) | |
483 | (b nil)) | |
484 | ||
485 | (defstruct-with-tests (struct-test-68 (:include struct-test-67)) | |
486 | c d) | |
487 | ||
488 | ;;; Error tests | ;;; Error tests |
489 | ||
490 | (deftest copy-structure.error.1 | (deftest copy-structure.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |