/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.519 by trittweiler, Thu Nov 29 12:35:54 2007 UTC revision 1.520 by heller, Fri Nov 30 13:09:49 2007 UTC
# Line 103  Redirection is done while Lisp is proces Line 103  Redirection is done while Lisp is proces
103      (*print-array*            . t)      (*print-array*            . t)
104      (*print-lines*            . 10)      (*print-lines*            . 10)
105      (*print-escape*           . t)      (*print-escape*           . t)
106      (*print-right-margin*     . ,most-positive-fixnum))      (*print-right-margin*     . 65))
107    "A set of printer variables used in the debugger.")    "A set of printer variables used in the debugger.")
108    
109    (defvar *backtrace-printer-bindings*
110      `((*print-pretty*           . nil)
111        (*print-level*            . 4)
112        (*print-length*           . 6))
113      "Pretter settings for printing backtraces.")
114    
115  (defvar *default-worker-thread-bindings* '()  (defvar *default-worker-thread-bindings* '()
116    "An alist to initialize dynamic variables in worker threads.    "An alist to initialize dynamic variables in worker threads.
117  The list has the form ((VAR . VALUE) ...).  Each variable VAR will be  The list has the form ((VAR . VALUE) ...).  Each variable VAR will be
# Line 2043  I is an integer describing and FRAME a s Line 2049  I is an integer describing and FRAME a s
2049    (loop for frame in (compute-backtrace start end)    (loop for frame in (compute-backtrace start end)
2050          for i from start          for i from start
2051          collect (list i (with-output-to-string (stream)          collect (list i (with-output-to-string (stream)
2052                            (handler-case                            (handler-case
2053                                (print-frame frame stream)                                (with-bindings *backtrace-printer-bindings*
2054                                    (print-frame frame stream))
2055                              (t ()                              (t ()
2056                                (format stream "[error printing frame]")))))))                                (format stream "[error printing frame]")))))))
2057    
# Line 2128  has changed, ignore the request." Line 2135  has changed, ignore the request."
2135  (defslimefun frame-locals-for-emacs (index)  (defslimefun frame-locals-for-emacs (index)
2136    "Return a property list ((&key NAME ID VALUE) ...) describing    "Return a property list ((&key NAME ID VALUE) ...) describing
2137  the local variables in the frame INDEX."  the local variables in the frame INDEX."
2138    (mapcar (lambda (frame-locals)    (with-bindings *backtrace-printer-bindings*
2139              (destructuring-bind (&key name id value) frame-locals      (mapcar (lambda (frame-locals)
2140                (list :name (prin1-to-string name) :id id                (destructuring-bind (&key name id value) frame-locals
2141                      :value (to-string value))))                  (list :name (prin1-to-string name) :id id
2142            (frame-locals index)))                        :value (to-string value))))
2143                (frame-locals index))))
2144    
2145  (defslimefun frame-catch-tags-for-emacs (frame-index)  (defslimefun frame-catch-tags-for-emacs (frame-index)
2146    (mapcar #'to-string (frame-catch-tags frame-index)))    (mapcar #'to-string (frame-catch-tags frame-index)))

Legend:
Removed from v.1.519  
changed lines
  Added in v.1.520

  ViewVC Help
Powered by ViewVC 1.1.5