[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(sldb-break-at-start): Implement.
Patch from Utz-Uwe Haus.


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2006/10/20 00:15:15	1.91
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2006/10/26 16:50:03	1.92
@@ -141,6 +141,15 @@
         (excl::*break-hook* nil))
     (funcall debugger-loop-fn)))
 
+(defimplementation sldb-break-at-start (fname)
+  ;; :print-before is kind of mis-used but we just want to stuff our break form
+  ;; somewhere. This does not work for setf, :before and :after methods, which
+  ;; need special syntax in the trace call, see ACL's doc/debugging.htm chapter 10.
+  (eval `(trace (,fname
+                 :print-before
+                 ((break "Function start breakpoint of ~A" ',fname)))))
+  `(:ok ,(format nil "Set breakpoint at start of ~S" fname)))
+
 (defun find-topframe ()
   (let ((skip-frames 3))
     (do ((f (excl::int-newest-frame) (next-frame f))