1.2.0 permalink Arrow_down_16x16

sldb-loop

swank.core

  • (sldb-loop level)
A loop that is intented to take over an eval thread when a debug is
encountered (an continue to perform the same thing). It will
continue until a *debug-quit* exception is encountered.

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source swank/core.clj:191 top

(defn sldb-loop
  "A loop that is intented to take over an eval thread when a debug is
   encountered (an continue to perform the same thing). It will
   continue until a *debug-quit* exception is encountered."
  [level]
  (try
   (send-to-emacs
    (list* :debug (current-thread) level
           (build-debugger-info-for-emacs 0 *sldb-initial-frames*)))
   ([] (continuously
        (do
          (send-to-emacs `(:debug-activate ~(current-thread) ~level nil))
          (eval-from-control))))
   (catch Throwable t
     (send-to-emacs
      `(:debug-return ~(current-thread) ~*sldb-level* ~*sldb-stepping-p*))
     (if-not (debug-continue-exception? t)
       (throw t)))))
Vars in swank.core/sldb-loop: defn if-not list* concat list seq
Used in 0 other vars

Comments top

No comments for sldb-loop. Log in to add a comment.