From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Tue, 30 Mar 2004 17:08:18 +0000 (+0000)
Subject: 0.8.9.11:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f1a74e4c149c396d265bfab79306429163d893e5;p=sbcl.git

0.8.9.11:
	Fix for alpha branch of ash-left-mod64:
	... EBROKENPARENS
---

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index fa3bee3..178f6b4 100644
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -464,8 +464,8 @@
                (constant-lvar-p count)  ; ?
                (plusp (lvar-value count)))
       (cut-to-width integer width)
-      '#1#)
-    (setf (gethash '#1# *modular-versions*) '(ash 64))))
+      '#1#))
+  (setf (gethash '#1# *modular-versions*) '(ash 64)))
 
 
 ;;; There are two different ways the multiplier can be recoded. The
diff --git a/version.lisp-expr b/version.lisp-expr
index f2559a7..2cbb4c4 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.9.10"
+"0.8.9.11"