/[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.1 by pfdietz, Mon Dec 13 13:46:45 2004 UTC revision 1.2 by pfdietz, Tue Dec 28 13:59:41 2004 UTC
# Line 30  Line 30 
30                      (declare (ignore os))                      (declare (ignore os))
31                      (values 'a 'b))                      (values 'a 'b))
32    a b)    a b)
33    
34    (deftest with-open-stream.6
35      (let ((s (make-string-output-stream)))
36        (values
37         (with-open-stream (os s))
38         (notnot (typep s 'string-stream))
39         (open-stream-p s)))
40      nil t nil)
41    
42    (deftest with-open-stream.7
43      (let ((s (make-string-input-stream "123")))
44        (values
45         (with-open-stream (is s) (read-char s))
46         (notnot (typep s 'string-stream))
47         (open-stream-p s)))
48      #\1 t nil)
49    
50    (deftest with-open-stream.8
51      (let ((s (make-string-output-stream)))
52        (values
53         (block done
54          (with-open-stream (os s) (return-from done nil)))
55         (notnot (typep s 'string-stream))
56         (open-stream-p s)))
57      nil t nil)
58    
59    (deftest with-open-stream.9
60      (let ((s (make-string-output-stream)))
61        (values
62         (catch 'done
63          (with-open-stream (os s) (throw 'done nil)))
64         (notnot (typep s 'string-stream))
65         (open-stream-p s)))
66      nil t nil)
67    
68    

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

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