X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwalk.impure.lisp;h=ce41e628c7529ca11a759eaa5c1a008ec8d64c44;hb=c589b9363d23ec9133e5396adaf4240cb0a8bd18;hp=2045fa02f2a8b26a52c970fe8e2606623dfe4e7e;hpb=3975b8496884b7f3672ef6772a957123568466d1;p=sbcl.git

diff --git a/tests/walk.impure.lisp b/tests/walk.impure.lisp
index 2045fa0..ce41e62 100644
--- a/tests/walk.impure.lisp
+++ b/tests/walk.impure.lisp
@@ -32,7 +32,8 @@
 (defun string-modulo-tabspace (s)
   (remove-if (lambda (c)
                (or (char= c #\space)
-                   (char= c #\tab)))
+                   (char= c #\tab)
+                   (char= c #\newline)))
              s))
 (defun string=-modulo-tabspace (x y)
   (string= (string-modulo-tabspace x)