/[gcl]/gcl/ansi-tests/catch.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/catch.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26