From 01ac3a2edf9f95d5edcda39f78d5dab04555c025 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Fri, 8 Apr 2016 16:22:01 -0400
Subject: [PATCH] Correct the interpreter stub for CHECK-BOUND

---
 NEWS                | 1 +
 src/code/array.lisp | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 8ad1e5437..f289cad97 100644
--- a/NEWS
+++ b/NEWS
@@ -3,6 +3,7 @@
 changes relative to sbcl-1.3.4:
   * enhancement: the platform's strtod() is exposed as SB-POSIX:STRTOD
   * bug fix: better wording in missed optimization note. (lp#1003265)
+  * bug fix: interpreted (CAS SVREF) was broken
 
 changes in sbcl-1.3.4 relative to sbcl-1.3.3:
   * enhancement: who-sets and who-references work on DEFGLOBAL. (lp#1552997)
diff --git a/src/code/array.lisp b/src/code/array.lisp
index 819bb301c..efbae3eeb 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -50,7 +50,8 @@
 (defun check-bound (array bound index)
   (declare (type index bound)
            (fixnum index))
-  (%check-bound array bound index))
+  (%check-bound array bound index)
+  index)
 
 (defun %with-array-data/fp (array start end)
   (%with-array-data-macro array start end :check-bounds t :check-fill-pointer t))
-- 
2.11.4.GIT