1.0.29.12: nicer DX capability conditionalization

[sbcl.git] / tests / walk.impure.lisp

diff --git a/tests/walk.impure.lisp b/tests/walk.impure.lisp
index 80b4915..2045fa0 100644 (file)
--- a/tests/walk.impure.lisp
+++ b/tests/walk.impure.lisp
@@ -933,14 +933,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 +967,4 @@ Form: NIL   Context: EVAL; bound: NIL
 ;;; Old PCL hung up on this.
 (defmethod #:foo ()
   (defun #:bar ()))
-\f
-(quit :unix-status 104)
+\f
\ No newline at end of file