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

Diff of /gcl/ansi-tests/with-open-file.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 55  Line 55 
55       (format s "foo!~%"))       (format s "foo!~%"))
56      (with-open-file (s pn) (read-line s)))      (with-open-file (s pn) (read-line s)))
57    "foo!" nil)    "foo!" nil)
58    
59    ;;; Free declaration scope tests
60    
61    (deftest with-open-file.7
62      (block done
63        (let ((x :bad))
64          (declare (special x))
65          (let ((x :good))
66            (with-open-file (s (return-from done x))
67                            (declare (special x))))))
68      :good)
69    
70    (deftest with-open-file.8
71      (block done
72        (let ((x :bad))
73          (declare (special x))
74          (let ((x :good))
75            (with-open-file (s "with-open-file.lsp" (return-from done x) :input)
76                            (declare (special x))))))
77      :good)
78    
79    (deftest with-open-file.9
80      (block done
81        (let ((x :bad))
82          (declare (special x))
83          (let ((x :good))
84            (with-open-file (s "with-open-file.lsp" :direction (return-from done x))
85                            (declare (special x))))))
86      :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