CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory alpha-cl-net:/tmp/cvs-serv12537

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
* swank-ccl.lisp (p2-definitions): Check bounds before accessing
backend-p2-dispatch.

--- /project/slime/cvsroot/slime/ChangeLog	2013/11/01 14:42:09	1.2408
+++ /project/slime/cvsroot/slime/ChangeLog	2013/11/01 15:38:50	1.2409
@@ -1,5 +1,10 @@
 2013-11-01  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-ccl.lisp (p2-definitions): Check bounds before accessing
+	backend-p2-dispatch.
+
+2013-11-01  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-sbcl.lisp (swank-compile-string): Fix last commit.  Honor
 	*trap-load-time-warnings* but without calling LOAD inside
 	WITH-COMPILATION-UNIT.
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2013/09/29 13:45:42	1.34
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2013/11/01 15:38:50	1.35
@@ -552,10 +552,11 @@
 (defun p2-definitions (name)
   (let ((nx1-op (gethash name ccl::*nx1-operators*)))
     (and nx1-op
-         (let ((p2 (aref (ccl::backend-p2-dispatch ccl::*target-backend*)
-                         nx1-op)))
-           (and p2
-                (ccl:find-definition-sources p2))))))
+         (let ((dispatch (ccl::backend-p2-dispatch ccl::*target-backend*)) )
+           (and (array-in-bounds-p dispatch nx1-op)
+                (let ((p2 (aref dispatch nx1-op)))
+                  (and p2
+                       (ccl:find-definition-sources p2))))))))
 
 (defimplementation find-definitions (name)
   (let ((defs (append (or (ccl:find-definition-sources name)