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

[Helmut Eller]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(restart-frame, return-from-frame): Remove sldb-prefix.
Date: Wed Jan 21 19:36:47 2004
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.54 slime/swank-openmcl.lisp:1.55
--- slime/swank-openmcl.lisp:1.54	Mon Jan 19 16:48:04 2004
+++ slime/swank-openmcl.lisp	Wed Jan 21 19:36:46 2004
@@ -445,7 +445,7 @@
 (defslimefun sldb-abort ()
   (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))
 
-(defslimefun eval-in-frame (form index)
+(defimplementation eval-in-frame (form index)
   (map-backtrace
    (lambda (frame-number p tcr lfun pc)
      (when (= frame-number index)
@@ -466,19 +466,21 @@
                      ,form)))
            ))))))
 
-(defslimefun sldb-return-from-frame (form index)
-  (let ((values (multiple-value-list (eval-in-frame (from-string form) index))))
+(defimplementation return-from-frame (index form)
+  (let ((values (multiple-value-list (eval-in-frame (from-string form) 
+                                                    index))))
     (map-backtrace
      (lambda (frame-number p tcr lfun pc)
        (declare (ignore tcr lfun pc))
        (when (= frame-number index)
          (ccl::apply-in-frame p #'values  values))))))
  
-(defslimefun sldb-restart-frame (index)
+(defimplementation restart-frame (index)
   (map-backtrace
    (lambda (frame-number p tcr lfun pc)
      (when (= frame-number index)
-       (ccl::apply-in-frame p lfun (ccl::frame-supplied-args p lfun pc nil tcr))))))
+       (ccl::apply-in-frame p lfun 
+                            (ccl::frame-supplied-args p lfun pc nil tcr))))))
 
 ;;; Utilities