[slime-cvs] CVS update: slime/swank-openmcl.lisp

[Alan Ruttenberg]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv19744/slime

Modified Files:
	swank-openmcl.lisp 
Log Message:
ppc32::catch-frame.csp-cell -> 3
ppc32::catch-frame.catch-tag-cell -> 0
FIXME when Gary says this area of the code is stable.

Date: Mon Jan 19 16:01:51 2004
Author: aruttenberg

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.52 slime/swank-openmcl.lisp:1.53
--- slime/swank-openmcl.lisp:1.52	Mon Jan 19 15:16:18 2004
+++ slime/swank-openmcl.lisp	Mon Jan 19 16:01:51 2004
@@ -340,8 +340,8 @@
             (return-from frame-catch-tags
               (loop for catch = (ccl::%catch-top tcr) then (ccl::next-catch catch)
                     while catch
-                    for csp = (ccl::uvref catch ppc32::catch-frame.csp-cell)
-                    for tag = (ccl::uvref catch ppc32::catch-frame.catch-tag-cell)
+                    for csp = (ccl::uvref catch 3) ; ppc32::catch-frame.csp-cell) defined in arch.lisp
+                    for tag = (ccl::uvref catch 0) ; ppc32::catch-frame.catch-tag-cell)
                     until (ccl::%stack< p csp tcr)
                     do (print "-") (print catch) (terpri) (describe tag)
                     when (ccl::%stack< my-frame csp tcr)