X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwalk.impure.lisp;h=ce41e628c7529ca11a759eaa5c1a008ec8d64c44;hb=295fdbaa30b57128da30e1e5fb0c653dd20f46d1;hp=80b491570a94a0494532431d936c22790031751d;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/walk.impure.lisp b/tests/walk.impure.lisp
index 80b4915..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)
@@ -933,14 +934,13 @@ Form: A   Context: EVAL
 Form: (PROGN B)   Context: EVAL
 Form: B   Context: EVAL
 Form: (COND ((FOO BAR) A (FOO A)))   Context: EVAL
-Form: (IF (FOO BAR) (PROGN A (FOO A)) (COND))   Context: EVAL
+Form: (IF (FOO BAR) (PROGN A (FOO A)) NIL)   Context: EVAL
 Form: (FOO BAR)   Context: EVAL
 Form: 'GLOBAL-FOO   Context: EVAL
 Form: (PROGN A (FOO A))   Context: EVAL
 Form: A   Context: EVAL
 Form: (FOO A)   Context: EVAL
 Form: 'GLOBAL-FOO   Context: EVAL
-Form: (COND)   Context: EVAL
 Form: NIL   Context: EVAL; bound: NIL
 (COND (A B) ((FOO BAR) A (FOO A)))"))
 
@@ -968,5 +968,4 @@ Form: NIL   Context: EVAL; bound: NIL
 ;;; Old PCL hung up on this.
 (defmethod #:foo ()
   (defun #:bar ()))
-
-(quit :unix-status 104)
+
\ No newline at end of file