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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(default-directory): Add implementation.

(sldb-step): Uncomment it and remove references to
*swank-debugger-condition*.

Date: Wed Jun 16 13:25:25 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.106 slime/swank-cmucl.lisp:1.107
--- slime/swank-cmucl.lisp:1.106	Tue Jun  8 13:32:50 2004
+++ slime/swank-cmucl.lisp	Wed Jun 16 13:25:25 2004
@@ -1408,6 +1408,9 @@
   ;; Setting *default-pathname-defaults* to an absolute directory
   ;; makes the behavior of MERGE-PATHNAMES a bit more intuitive.
   (setf *default-pathname-defaults* (pathname (ext:default-directory)))
+  (default-directory))
+
+(defimplementation default-directory ()
   (namestring (ext:default-directory)))
 
 (defimplementation call-without-interrupts (fn)
@@ -1513,13 +1516,12 @@
                                            :kind :function-end)))
               (di:activate-breakpoint bp)))))))
 
-;; (defslimefun sldb-step (frame)
-;;   (cond ((find-restart 'continue *swank-debugger-condition*)
-;;          (set-step-breakpoints (nth-frame frame))
-;;          (continue *swank-debugger-condition*))
-;;         (t
-;;          (error "Cannot continue in from condition: ~A" 
-;;                 *swank-debugger-condition*))))
+(defimplementation sldb-step (frame)
+  (cond ((find-restart 'continue)
+         (set-step-breakpoints (nth-frame frame))
+         (continue))
+        (t
+         (error "No continue restart."))))
 
 (defun frame-cfp (frame)
   "Return the Control-Stack-Frame-Pointer for FRAME."