1.0.32: will be tagged as sbcl_1_0_32

diff --git a/NEWS b/NEWS
index b7bb2fe..6c42735 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,5 @@
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
-changes relative to sbcl-1.0.31
+changes in sbcl-1.0.32 relative to sbcl-1.0.31
   * optimization: faster FIND and POSITION on strings of unknown element type
     in high SPEED policies. (thanks to Karol Swietlicki)
   * optimization: faster CONCATENATE 'STRING in low SPEED policies (reported

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index a1efdf0..f02cfa0 100644 (file)
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -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

diff --git a/version.lisp-expr b/version.lisp-expr
index f3ecd9d..e843b82 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.31.32"
+"1.0.32"