[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11706

Modified Files:
	swank-openmcl.lisp 
Log Message:

* swank-openmcl.lisp (closure-closed-over-values): Use
  CCL::NTH-IMMEDIATE instead of CCL::%SVREF.  This makes it work on
  x86-64 OpenMCL. (The %SVREF worked on PPC, but this will work on
  both.)


--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2007/08/23 19:03:37	1.119
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2007/10/22 08:19:58	1.120
@@ -849,7 +849,7 @@
   (let ((howmany (nth-value 8 (ccl::function-args (ccl::closure-function closure)))))
     (loop for n below howmany
 	 collect
-	 (let* ((value (ccl::%svref closure (+ 1 (- howmany n))))
+	 (let* ((value (ccl::nth-immediate closure (+ 1 (- howmany n))))
 		(map (car (ccl::function-symbol-map (ccl::closure-function closure))))
 		(label (or (and map (svref map n)) n))
 		(cellp (ccl::closed-over-value-p value)))