/[gcl]/gcl/ansi-tests/read-byte.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/read-byte.lsp

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

revision 1.2 by pfdietz, Mon May 17 13:34:30 2004 UTC revision 1.3 by pfdietz, Sat Aug 14 18:56:53 2004 UTC
# Line 115  Line 115 
115    t)    t)
116    
117  (deftest read-byte.error.4  (deftest read-byte.error.4
118    (progn    (signals-error-always
119      (let ((s (open "foo.txt"     (progn
                    :direction :output  
                    :if-exists :supersede  
                   :element-type '(unsigned-byte 8))))  
       (close s))  
     (signals-error  
120       (let ((s (open "foo.txt"       (let ((s (open "foo.txt"
121                     :direction :input                      :direction :output
122                     :element-type '(unsigned-byte 8))))                      :if-exists :supersede
123                        :element-type '(unsigned-byte 8))))
124           (close s))
125         (let ((s (open "foo.txt"
126                        :direction :input
127                        :element-type '(unsigned-byte 8))))
128         (unwind-protect         (unwind-protect
129             (read-byte s t)             (read-byte s t)
130           (close s)))           (close s))))
131       end-of-file))     end-of-file)
132    t)    t t)
133    
134  (deftest read-byte.error.5  (deftest read-byte.error.5
135    (loop for x in *mini-universe*    (loop for x in *mini-universe*

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