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

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

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

revision 1.7 by pfdietz, Sun Feb 23 12:19:43 2003 UTC revision 1.8 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 110  Line 110 
110          collect s)          collect s)
111    nil)    nil)
112    
113    ;;; Check that LET does not have a tagbody
114    (deftest let.16
115      (block done
116        (tagbody
117         (let () (go 10) 10 (return-from done 'bad))
118         10
119         (return-from done 'good)))
120      good)
121    
122    
123  ;;; Tests for LET*  ;;; Tests for LET*
124    
125  (deftest let*.1  (deftest let*.1
# Line 208  Line 218 
218          unless (eql (eval form) 17)          unless (eql (eval form) 17)
219          collect s)          collect s)
220    nil)    nil)
221    
222    ;;; Check that LET* does not have a tagbody
223    (deftest let*.16
224      (block done
225        (tagbody
226         (let () (go 10) 10 (return-from done 'bad))
227         10
228         (return-from done 'good)))
229      good)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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