Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv19336/tests
Modified Files:
gray-streams.impure.lisp
Log Message:
0.7.10.35:
trivial comment fix
Index: gray-streams.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/gray-streams.impure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- gray-streams.impure.lisp 31 Oct 2001 19:42:57 -0000 1.4
+++ gray-streams.impure.lisp 29 Dec 2002 18:01:49 -0000 1.5
@@ -1,8 +1,4 @@
-;;;; This file is for compiler tests which have side effects (e.g.
-;;;; executing DEFUN) but which don't need any special side-effecting
-;;;; environmental stuff (e.g. DECLAIM of particular optimization
-;;;; settings). Similar tests which *do* expect special settings may
-;;;; be in files compiler-1.impure.lisp, compiler-2.impure.lisp, etc.
+;;;; tests related to Gray streams
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
@@ -259,7 +255,7 @@
(let ((test-string (format nil
"~% This is a test.~& This is the second line.~
- ~% This should be the third and last line.~%")))
+ ~% This should be the third and last line.~%")))
(with-input-from-string (foo test-string)
(assert (equal
(with-output-to-string (bar)
|