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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sat Oct 12 17:42:32 2002 UTC revision 1.2 by pfdietz, Sat Oct 12 18:44:42 2002 UTC
# Line 38  Line 38 
38      'bad)      'bad)
39    good)    good)
40    
41    (deftest block.6
42      (block b1
43        (return-from b1 (values))
44        1))
45    
46          (deftest block.7
47      (block b1
48        (return-from b1 (values 1 2 3 4))
49        1)
50      1 2 3 4)
51    
52    (deftest block.8
53      (block foo)
54      nil)
55    
56    (deftest block.9
57      (block foo (values 'a 'b) (values 'c 'd))
58      c d)
59    
60    (deftest block.10
61      (block done
62        (flet ((%f (x) (return-from done x)))
63          (block done (mapcar #'%f '(good bad bad))))
64        'bad)
65      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