/[gcl]/gcl/ansi-tests/with-output-to-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/with-output-to-string.lsp

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

revision 1.3 by pfdietz, Mon Oct 25 14:41:53 2004 UTC revision 1.4 by pfdietz, Sat Jan 8 16:00:02 2005 UTC
# Line 103  Line 103 
103        (list str1 str2)))        (list str1 str2)))
104    :good)    :good)
105    
106    ;;; Free declaration scope
107    
108    (deftest with-output-to-string.15
109      (block done
110        (let ((x :bad))
111          (declare (special x))
112          (let ((x :good))
113            (with-output-to-string (s (return-from done x))
114                                   (declare (special x))))))
115      :good)
116    
117    (deftest with-output-to-string.16
118      (block done
119        (let ((x :bad))
120          (declare (special x))
121          (let ((x :good)
122                (str (make-array '(10) :element-type 'character
123                                 :fill-pointer 0)))
124            (with-output-to-string (s str :element-type (return-from done x))
125                                   (declare (special x))))))
126      :good)
127    
       
         
                                         

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