/[gcl]/gcl/ansi-tests/with-hash-table-iterator.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/with-hash-table-iterator.lsp

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

revision 1.2 by pfdietz, Mon Dec 13 13:45:33 2004 UTC revision 1.3 by pfdietz, Sat Jan 8 15:50:32 2005 UTC
# Line 146  Line 146 
146                      )))))                      )))))
147    100 t)    100 t)
148    
149    ;;; Free declaration scope
150    
   
   
             
           
151    (deftest with-hash-table-iterator.12
152      (block done
153        (let ((x :bad))
154          (declare (special x))
155          (let ((x :good))
156            (with-hash-table-iterator (m (return-from done x))
157                                      (declare (special x))))))
158      :good)

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

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