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

Diff of /gcl/ansi-tests/with-package-iterator.lsp

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

revision 1.3 by pfdietz, Sun Aug 29 22:03:24 2004 UTC revision 1.4 by pfdietz, Sat Jan 8 15:50:32 2005 UTC
# Line 161  Line 161 
161      (make-array 5 :element-type etype      (make-array 5 :element-type etype
162                  :displaced-to name0                  :displaced-to name0
163                  :displaced-index-offset 1)))                  :displaced-index-offset 1)))
164    
165    ;;; Free declaration scope
166    
167    (deftest with-package-iterator.22
168      (block done
169        (let ((x :bad))
170          (declare (special x))
171          (let ((x :good))
172            (with-package-iterator (s (return-from done x) :internal)
173                                   (declare (special x))))))
174      :good)

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

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