Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 12 18:44:42 2002 UTC | revision 1.2 by pfdietz, Thu Oct 17 13:16:55 2002 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | (deftest catch.6 | (deftest catch.6 |
28 | (let ((tag1 (1+ most-positive-fixnum)) | (let ((tag1 (1+ most-positive-fixnum)) |
29 | (tag2 (1+ most-positive-fixnum))) | (tag2 (1+ most-positive-fixnum))) |
30 | (if (eq tag1 tag2) | (if (eqt tag1 tag2) |
31 | 'good | 'good |
32 | (catch tag1 | (catch tag1 |
33 | (catch tag2 (throw tag1 'good)) | (catch tag2 (throw tag1 'good)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |