Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Fri Dec 10 12:42:04 2004 UTC | revision 1.3 by pfdietz, Mon Dec 13 13:45:33 2004 UTC | |
---|---|---|
# | Line 82 | Line 82 |
82 | (return-from done :bad2))) | (return-from done :bad2))) |
83 | :good) | :good) |
84 | ||
85 | ;;; Test that do-all-symbols accepts declarations | |
86 | ||
87 | (deftest do-all-symbols.9 | |
88 | (let ((x 0) | |
89 | (y 1)) | |
90 | (do-all-symbols (z nil) | |
91 | (declare (type (integer * 0) x)) | |
92 | (declare (type (integer 1 *) y)) | |
93 | (declare (ignore z)) | |
94 | (when (< x y) (return :good)))) | |
95 | :good) | |
96 | ||
97 | ;;; Default return is NIL | |
98 | ||
99 | (deftest do-all-symbols.10 | |
100 | (do-all-symbols (s) (declare (ignore s))) | |
101 | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |