/[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.4 by pfdietz, Sat Jan 8 16:00:02 2005 UTC revision 1.5 by pfdietz, Thu Jul 14 02:52:10 2005 UTC
# Line 20  Line 20 
20    nil)    nil)
21    
22  (deftest with-output-to-string.4  (deftest with-output-to-string.4
23      (:notes :allow-nil-arrays)
24    (let ((str (make-array 10 :fill-pointer 0 :element-type 'character)))    (let ((str (make-array 10 :fill-pointer 0 :element-type 'character)))
25      (values      (values
26       (with-output-to-string       (with-output-to-string
# Line 52  Line 53 
53    "8")    "8")
54    
55  (deftest with-output-to-string.9  (deftest with-output-to-string.9
56      (:notes :allow-nil-arrays)
57    (with-output-to-string (s nil :element-type nil))    (with-output-to-string (s nil :element-type nil))
58    "")    "")
59    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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