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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(breakpoint-values): Fixes for CMUCL-2005-03 snapshot.

Date: Mon Apr  4 01:27:42 2005
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.142 slime/swank-cmucl.lisp:1.143
--- slime/swank-cmucl.lisp:1.142	Mon Mar 21 01:58:15 2005
+++ slime/swank-cmucl.lisp	Mon Apr  4 01:27:41 2005
@@ -1642,8 +1642,15 @@
         (:unknown-return
          (let ((mv-return-pc (di::compiled-code-location-pc cl)))
            (if (= mv-return-pc *breakpoint-pc*)
-               (di::get-function-end-breakpoint-values sc)
+               (mv-function-end-breakpoint-values sc)
                (list (1st sc)))))))))
+
+;; XXX: di::get-function-end-breakpoint-values takes 2 arguments in
+;; newer versions of CMUCL (after ~March 2005).
+(defun mv-function-end-breakpoint-values (sigcontext)
+  (let ((sym (find-symbol "FUNCTION-END-BREAKPOINT-VALUES/STANDARD" :di)))
+    (cond (sym (funcall sym sigcontext))
+          (t (di::get-function-end-breakpoint-values sigcontext)))))
 
 (defun debug-function-returns (debug-fun)
   "Return the return style of DEBUG-FUN."