#;1>
(instrument
 (let ((x 10))
   (let loop ((i 0))
     (when (< i 5)
       (breakpoint "foo")
       (loop (+ i 1))))
   (breakpoint "bar")
   (+ x 1)))
g56453:g54584:breakpoint for foo
(((i . #&0)) ((x . #&10)))
> (_ 'i)
0
> (_ 'i 1)
#<unspecified>
> (_ 'i)
1
> ,c
g56454:g54897:breakpoint for (loop (+ i 1))
(((i . #&1)) ((x . #&10)))
> ,run
g56455:g54584:breakpoint for foo
(((i . #&2)) ((i . #&1)) ((x . #&10)))
> ,go-to g56453
g56456:g54584:breakpoint for foo
(((i . #&1)) ((x . #&10)))
> ,disable
breakpoint disabled
> ,run
g56457:g55831:breakpoint for bar
(((x . #&10)))
> (_ 'x 2)
#<unspecified>
> ,c
g56458:g56144:breakpoint for (+ x 1)
(((x . #&2)))
> ,c
3