From: William H. N. <wn...@us...> - 2002-12-29 18:01:52
|
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) |