gistfile1.txt

$ ./dfsch-repl  -r introspect
  /\___/\    dfsch version 0.4.0-dev
 ( o   o )     (rel-0.3.0-1310-g60bdd37) [Feb 12 2012 13:38:31]
 ==  *  ==   dfsch is free software, and you are welcome to redistribute it
   )   (     under certain conditions; see file COPYING for details.

]=> (define (foo x y) (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)))
#<standard-function 0x12b0aa0 foo(x y)>
]=> (add-function-breakpoint! foo)
#<standard-function 0x12b0aa0 foo(x y)>
]=> (foo 3 4)
;; warning: leaving function with breakpoint on first form uncompiled
Program stopped on breakpoint:
  (let ((nx (1+ x)) (ny (1+ y))) (display mnau) (newline) (+ nx ny))

Local variables:
    y: 4
    x: 3
      ... top level scope variables ommited

stack trace:
  EVAL (foo 3 4) ()
     @ *console-io*:3
  APPLY #<standard-function 0x12b0aa0 foo(x y)> ()
  EVAL (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
     @ *console-io*:1
  APPLY #<primitive 0x7fa0be12c840 enter_debugger> ()

EOF to continue, ;disable to remove breakpoint, ;help for more commands
dbg1> ;step
Program stopped on breakpoint:
  (#<form 0x7fa0be3d6ca0 internal_let> ((nx (1+ x)) (ny (1+ y))) (display mnau) (newline) (+ nx ny))

Local variables:
    y: 4
    x: 3
      ... top level scope variables ommited

stack trace:
  EVAL (foo 3 4) ()
     @ *console-io*:3
  APPLY #<standard-function 0x12b0aa0 foo(x y)> ()
  EVAL (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
     @ *console-io*:1
  EVAL (#<form 0x7fa0be3d6ca0 internal_let> ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
    <- (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny))
     @ *console-io*:1
  APPLY #<primitive 0x7fa0be12c840 enter_debugger> ()

EOF to continue, ;disable to remove breakpoint, ;help for more commands
Program has trace trap, type ;continue to disable
dbg1> Program stopped on breakpoint:
  (1+ x)

Local variables:
    y: 4
    x: 3
      ... top level scope variables ommited

stack trace:
  EVAL (foo 3 4) ()
     @ *console-io*:3
  APPLY #<standard-function 0x12b0aa0 foo(x y)> ()
  EVAL (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
     @ *console-io*:1
  EVAL (#<form 0x7fa0be3d6ca0 internal_let> ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
    <- (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny))
     @ *console-io*:1
  EVAL (1+ x) ()
     @ *console-io*:1
  APPLY #<primitive 0x7fa0be12c840 enter_debugger> ()

EOF to continue, ;disable to remove breakpoint, ;help for more commands
Program has trace trap, type ;continue to disable
dbg1> Program stopped on breakpoint:
  (1+ y)

Local variables:
    y: 4
    x: 3
      ... top level scope variables ommited

stack trace:
  EVAL (foo 3 4) ()
     @ *console-io*:3
  APPLY #<standard-function 0x12b0aa0 foo(x y)> ()
  EVAL (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
     @ *console-io*:1
  EVAL (#<form 0x7fa0be3d6ca0 internal_let> ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
    <- (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny))
     @ *console-io*:1
  EVAL (1+ y) ()
     @ *console-io*:1
  APPLY #<primitive 0x7fa0be12c840 enter_debugger> ()

EOF to continue, ;disable to remove breakpoint, ;help for more commands
Program has trace trap, type ;continue to disable
dbg1> Program stopped on breakpoint:
  (display mnau)

Local variables:
    ny: 5
    nx: 4
  -- in next outer scope --
    y: 4
    x: 3
      ... top level scope variables ommited

stack trace:
  EVAL (foo 3 4) ()
     @ *console-io*:3
  APPLY #<standard-function 0x12b0aa0 foo(x y)> ()
  EVAL (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
     @ *console-io*:1
  EVAL (#<form 0x7fa0be3d6ca0 internal_let> ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny)) ()
    <- (let ((nx (1+ x)) (ny (1+ y))) (display "mnau") (newline) (+ nx ny))
     @ *console-io*:1
  EVAL (display "mnau") ()
     @ *console-io*:1
  APPLY #<primitive 0x7fa0be12c840 enter_debugger> ()

EOF to continue, ;disable to remove breakpoint, ;help for more commands
Program has trace trap, type ;continue to disable
dbg1>