/[gcl]/gcl/ansi-tests/with-open-stream.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/with-open-stream.lsp

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

revision 1.2 by pfdietz, Tue Dec 28 13:59:41 2004 UTC revision 1.3 by pfdietz, Sat Jan 8 15:50:32 2005 UTC
# Line 65  Line 65 
65       (open-stream-p s)))       (open-stream-p s)))
66    nil t nil)    nil t nil)
67    
68    ;;; Free declaration scope
69    
70    (deftest with-open-stream.10
71      (block done
72        (let ((x :bad))
73          (declare (special x))
74          (let ((x :good))
75            (with-open-stream (s (return-from done x))
76                              (declare (special x))))))
77      :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