Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9871/tests

Modified Files:
	run-program.impure.lisp 
Log Message:
1.0.32: will be tagged as sbcl_1_0_32

Index: run-program.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/run-program.impure.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- run-program.impure.lisp	3 Oct 2009 22:36:59 -0000	1.9
+++ run-program.impure.lisp	25 Oct 2009 15:49:11 -0000	1.10
@@ -156,7 +156,7 @@
 (with-test (:name (:run-program :inherit-stdin))
   (let (stopped)
     (flet ((status-hook (proc)
-             (ecase (sb-ext:process-status proc)
+             (case (sb-ext:process-status proc)
                (:stopped (setf stopped t)))))
       (let ((proc (sb-ext:run-program "/bin/ed" nil :search nil :wait nil
                                       :input t :output t