From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Sat, 16 Aug 2003 01:00:20 +0000 (+0000)
Subject: 0.8.2.31:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6d5b4ce7dd92bae0503f25ce72b924eab42d6e57;p=sbcl.git

0.8.2.31:
	Fix errors shown up by new ERROR/FORMAT code in sparc backend
---

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 2138a17..cdb9d3d 100644
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -634,7 +634,8 @@ about function addresses and register values.")
 
 (defun cond-move-condition (condition-reg)
   (or (position condition-reg cond-move-condition-registers)
-      (error "Unknown conditional move condition register:  ~S~%")))
+      (error "Unknown conditional move condition register:  ~S~%"
+             condition-reg)))
 
 (defconstant-eqx cond-move-printer
   `(:name cond :tab
@@ -697,7 +698,7 @@ about function addresses and register values.")
 
 (defun register-condition (rcond)
   (or (position rcond cond-move-integer-conditions)
-      (error "Unknown register condition:  ~S~%")))
+      (error "Unknown register condition:  ~S~%" rcond)))
 
 (sb!disassem:define-instruction-format
     (format-4-cond-move-integer 32 :default-printer cond-move-integer-printer)
diff --git a/version.lisp-expr b/version.lisp-expr
index 25933ea..7fc2fd3 100644
--- 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".)
-"0.8.2.30"
+"0.8.2.31"