;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\303\304!\210\303\305\306\"\210\303\307!\210\205\310!\311\312\313\314\315\316\313\316\317\320\321\322\323& #\316\207" [load-file-name sly-trace-dialog--path sly-trace-dialog--contrib require sly sly-parse "lib/sly-parse" cl-lib file-name-directory put sly-contribs sly-trace-dialog record sly-contrib nil (slynk/trace-dialog) sly-trace-dialog-init sly-trace-dialog-unload ("João Távora ") ("GPL")] 13) (defalias 'sly-trace-dialog-init #[0 "\306\307\310\311\312\313\314\"\"\"\210\315\314:\203'@\262\316\317E \320\321$A\262\202 \266\n\322=\2037\323 \2037\324 \210\325\326\327\"\210\330 \331\317#\210\332\f! >\204Q\333\334\335\fD\"\210\f\211\336\337I\207" [sly-trace-dialog--path sly-contrib--required-slynk-modules this-command sly-selector-map sly-trace-dialog--contrib cl-struct-sly-contrib-tags mapc funcall mapcar sly-contrib--enable cl-remove-if sly-contrib--enabled-p nil (slynk/trace-dialog) cl-adjoin sly-trace-dialog :key cl-first sly-setup sly-connected-p sly-contrib--load-slynk-dependencies add-hook sly-mode-hook sly-trace-dialog-shortcut-mode define-key "T" type-of signal wrong-type-argument sly-contrib 1 t] 7]) (defalias 'sly-trace-dialog-unload #[0 "\303\304\305\"\210\306\307:\203@\262\310\311\312$A\262\202\266\313\314\315\"\210\316\317\320\321\322\323\307\"\"\"\210\324 !\n>\204?\325\326\327 D\"\210 \211\330\307I\207" [sly-contrib--required-slynk-modules sly-trace-dialog--contrib cl-struct-sly-contrib-tags remove-hook sly-mode-hook sly-trace-dialogn-shortcut-mode (slynk/trace-dialog) nil cl-remove :key cl-first sly-warning "Disabling contrib %s" sly-trace-dialog mapc funcall mapcar sly-contrib--disable cl-remove-if-not sly-contrib--enabled-p type-of signal wrong-type-argument sly-contrib 1] 7]) #@66 Non-nil means flash the updated region of the SLY Trace Dialog.  (defvar sly-trace-dialog-flash t (#$ . 1879)) (defvar sly-trace-dialog--specs-overlay nil) (defvar sly-trace-dialog--progress-overlay nil) (defvar sly-trace-dialog--tree-overlay nil) (defvar sly-trace-dialog--collapse-chars (cons "-" "+")) (defvar sly-trace-dialog--traces nil) #@82 compiler-macro for inlining `sly-trace-dialog--trace-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-p (and (memq (type-of cl-x) cl-struct-sly-trace-dialog--trace-tags) t)) nil] 9 (#$ . 2228)]) (put 'sly-trace-dialog--trace-p 'compiler-macro 'sly-trace-dialog--trace-p--cmacro) #@13 (fn CL-X) (defalias 'sly-trace-dialog--trace-p #[257 "\301!>\205 \302\207" [cl-struct-sly-trace-dialog--trace-tags type-of t] 3 (#$ . 2640)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put sly-trace-dialog--trace-p side-effect-free error-free put sly-trace-dialog--trace cl-deftype-satisfies] 5) #@83 compiler-macro for inlining `sly-trace-dialog--trace-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-id (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 1))) nil] 9 (#$ . 2966)]) (put 'sly-trace-dialog--trace-id 'compiler-macro 'sly-trace-dialog--trace-id--cmacro) #@71 Access slot "id" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 1] 5 (#$ . 3441)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-id side-effect-free t] 4) #@87 compiler-macro for inlining `sly-trace-dialog--trace-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-parent (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 2))) nil] 9 (#$ . 3832)]) (put 'sly-trace-dialog--trace-parent 'compiler-macro 'sly-trace-dialog--trace-parent--cmacro) #@75 Access slot "parent" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 2] 5 (#$ . 4327)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-parent side-effect-free t] 4) #@85 compiler-macro for inlining `sly-trace-dialog--trace-spec'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-spec--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-spec (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 3))) nil] 9 (#$ . 4730)]) (put 'sly-trace-dialog--trace-spec 'compiler-macro 'sly-trace-dialog--trace-spec--cmacro) #@73 Access slot "spec" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-spec #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 3] 5 (#$ . 5215)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-spec side-effect-free t] 4) #@85 compiler-macro for inlining `sly-trace-dialog--trace-args'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-args--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-args (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 4))) nil] 9 (#$ . 5612)]) (put 'sly-trace-dialog--trace-args 'compiler-macro 'sly-trace-dialog--trace-args--cmacro) #@73 Access slot "args" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-args #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 4] 5 (#$ . 6097)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-args side-effect-free t] 4) #@88 compiler-macro for inlining `sly-trace-dialog--trace-retlist'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-retlist--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-retlist (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 5))) nil] 9 (#$ . 6494)]) (put 'sly-trace-dialog--trace-retlist 'compiler-macro 'sly-trace-dialog--trace-retlist--cmacro) #@76 Access slot "retlist" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-retlist #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 5] 5 (#$ . 6994)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-retlist side-effect-free t] 4) #@86 compiler-macro for inlining `sly-trace-dialog--trace-depth'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-depth--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-depth (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 6))) nil] 9 (#$ . 7400)]) (put 'sly-trace-dialog--trace-depth 'compiler-macro 'sly-trace-dialog--trace-depth--cmacro) #@74 Access slot "depth" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-depth #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 6] 5 (#$ . 7890)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-depth side-effect-free t] 4) #@84 compiler-macro for inlining `sly-trace-dialog--trace-beg'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-beg--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-beg (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 7))) nil] 9 (#$ . 8290)]) (put 'sly-trace-dialog--trace-beg 'compiler-macro 'sly-trace-dialog--trace-beg--cmacro) #@72 Access slot "beg" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-beg #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 7] 5 (#$ . 8770)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-beg side-effect-free t] 4) #@84 compiler-macro for inlining `sly-trace-dialog--trace-end'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-end--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-end (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 8))) nil] 9 (#$ . 9164)]) (put 'sly-trace-dialog--trace-end 'compiler-macro 'sly-trace-dialog--trace-end--cmacro) #@72 Access slot "end" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-end #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 8] 5 (#$ . 9644)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-end side-effect-free t] 4) #@103 compiler-macro for inlining `sly-trace-dialog--trace-collapse-button-marker'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-collapse-button-marker--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-collapse-button-marker (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 9))) nil] 9 (#$ . 10039)]) (put 'sly-trace-dialog--trace-collapse-button-marker 'compiler-macro 'sly-trace-dialog--trace-collapse-button-marker--cmacro) #@91 Access slot "collapse-button-marker" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-collapse-button-marker #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 9] 5 (#$ . 10615)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-collapse-button-marker side-effect-free t] 4) #@92 compiler-macro for inlining `sly-trace-dialog--trace-summary-beg'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-summary-beg--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-summary-beg (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 10))) nil] 9 (#$ . 11067)]) (put 'sly-trace-dialog--trace-summary-beg 'compiler-macro 'sly-trace-dialog--trace-summary-beg--cmacro) #@80 Access slot "summary-beg" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-summary-beg #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 10] 5 (#$ . 11589)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-summary-beg side-effect-free t] 4) #@93 compiler-macro for inlining `sly-trace-dialog--trace-children-end'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-children-end--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-children-end (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 11))) nil] 9 (#$ . 12009)]) (put 'sly-trace-dialog--trace-children-end 'compiler-macro 'sly-trace-dialog--trace-children-end--cmacro) #@81 Access slot "children-end" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-children-end #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 11] 5 (#$ . 12536)]) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--trace-children-end side-effect-free t] 4) #@92 compiler-macro for inlining `sly-trace-dialog--trace-collapsed-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'sly-trace-dialog--trace-collapsed-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block sly-trace-dialog--trace-collapsed-p (progn (or (sly-trace-dialog--trace-p cl-x) (signal 'wrong-type-argument (list 'sly-trace-dialog--trace cl-x))) (aref cl-x 12))) nil] 9 (#$ . 12959)]) (put 'sly-trace-dialog--trace-collapsed-p 'compiler-macro 'sly-trace-dialog--trace-collapsed-p--cmacro) #@80 Access slot "collapsed-p" of `sly-trace-dialog--trace' struct CL-X. (fn CL-X) (defalias 'sly-trace-dialog--trace-collapsed-p #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 12] 5 (#$ . 13481)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put sly-trace-dialog--trace-collapsed-p side-effect-free t defalias copy-sly-trace-dialog--trace copy-sequence] 4) #@193 compiler-macro for inlining `sly-trace-dialog--make-trace'. (fn CL-WHOLE &cl-quote &key ID PARENT SPEC ARGS RETLIST DEPTH BEG END COLLAPSE-BUTTON-MARKER SUMMARY-BEG CHILDREN-END COLLAPSED-P) (defalias 'sly-trace-dialog--make-trace--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\f\211\203|\211@\315>\203d\211AA\262\202Q\316>A@\203s\317\262\202Q\320\321@\"\210\202Q\210\322\323\324\317\317&\207" [plist-member :id :parent :spec :args :retlist :depth :beg :end :collapse-button-marker :summary-beg :children-end :collapsed-p (:id :parent :spec :args :retlist :depth :beg :end :collapse-button-marker :summary-beg :children-end :collapsed-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :parent :spec :args :retlist :depth :beg :end :collapse-button-marker :summary-beg :children-end :collapsed-p)" cl--defsubst-expand (id parent spec args retlist depth beg end collapse-button-marker summary-beg children-end collapsed-p) (cl-block sly-trace-dialog--make-trace (record 'sly-trace-dialog--trace id parent spec args retlist depth beg end collapse-button-marker summary-beg children-end collapsed-p))] 32 (#$ . 13964)]) (put 'sly-trace-dialog--make-trace 'compiler-macro 'sly-trace-dialog--make-trace--cmacro) #@173 Constructor for objects of type `sly-trace-dialog--trace'. (fn &key ID PARENT SPEC ARGS RETLIST DEPTH BEG END COLLAPSE-BUTTON-MARKER SUMMARY-BEG CHILDREN-END COLLAPSED-P) (defalias 'sly-trace-dialog--make-trace #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\f\211\203|\211@\315>\203d\211AA\262\202Q\316>A@\203s\317\262\202Q\320\321@\"\210\202Q\210\322\323            & \207" [plist-member :id :parent :spec :args :retlist :depth :beg :end :collapse-button-marker :summary-beg :children-end :collapsed-p (:id :parent :spec :args :retlist :depth :beg :end :collapse-button-marker :summary-beg :children-end :collapsed-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :parent :spec :args :retlist :depth :beg :end :collapse-button-marker :summary-beg :children-end :collapsed-p)" record sly-trace-dialog--trace] 27 (#$ . 15387)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put sly-trace-dialog--make-trace side-effect-free t cl-struct-define sly-trace-dialog--trace nil cl-structure-object record ((cl-tag-slot) (id) (parent) (spec) (args) (retlist) (depth) (beg) (end) (collapse-button-marker) (summary-beg) (children-end) (collapsed-p)) cl-struct-sly-trace-dialog--trace-tags] 11) #@11 (fn ID) (defalias 'sly-trace-dialog--find-trace #[257 "\301\"\207" [sly-trace-dialog--traces gethash] 4 (#$ . 16805)]) (defvar sly-trace-dialog-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\313\"\210\207" [button-buffer-map make-sparse-keymap define-key "G" sly-trace-dialog-fetch-traces " " sly-trace-dialog-clear-fetched-traces "g" sly-trace-dialog-fetch-status "q" quit-window set-keymap-parent] 5)) (defvar sly-trace-dialog-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sly-trace-dialog-mode-hook variable-documentation put "Hook run after entering SLY Trace Dialog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sly-trace-dialog-mode-map definition-name sly-trace-dialog-mode] 4) (defvar sly-trace-dialog-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [sly-trace-dialog-mode-abbrev-table sly-trace-dialog-mode-map variable-documentation put purecopy "Keymap for `sly-trace-dialog-mode'." boundp sly-trace-dialog-mode-syntax-table definition-name sly-trace-dialog-mode (lambda (#1=#:def-tmp-var) (defvar sly-trace-dialog-mode-syntax-table #1#)) make-syntax-table "Syntax table for `sly-trace-dialog-mode'." (lambda (#1#) (defvar sly-trace-dialog-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `sly-trace-dialog-mode'." derived-mode-parent] 5) #@182 Mode for controlling SLY's Trace Dialog This mode runs the hook `sly-trace-dialog-mode-hook', as the final or penultimate step during initialization. \{sly-trace-dialog-mode-map} (defalias 'sly-trace-dialog-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \314!\210\315\316!\210\317\316!\210\320\306\321!\322\"\210)\323\324!\207" [delay-mode-hooks major-mode mode-name sly-trace-dialog-mode-map sly-trace-dialog-mode-syntax-table sly-trace-dialog-mode-abbrev-table make-local-variable t kill-all-local-variables sly-trace-dialog-mode "SLY Trace Dialog" use-local-map set-syntax-table read-only-mode 1 sly-mode add-to-list sly-trace-dialog-after-toggle-hook sly-trace-dialog-fetch-status run-mode-hooks sly-trace-dialog-mode-hook local-abbrev-table lisp-mode-syntax-table] 3 (#$ . 18552) nil]) (defvar sly-trace-dialog-shortcut-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307\310!\203\311\202\312#\210\207" [make-sparse-keymap define-key "T" sly-trace-dialog "" sly-trace-dialog-toggle-trace [3 134217844] featurep sly-fancy-trace sly-toggle-fancy-trace sly-toggle-trace-fdefinition] 6)) #@129 Non-nil if Sly-Trace-Dialog-Shortcut mode is enabled. Use the command `sly-trace-dialog-shortcut-mode' to change this variable. (defvar sly-trace-dialog-shortcut-mode nil (#$ . 19707)) (make-variable-buffer-local 'sly-trace-dialog-shortcut-mode) #@635 Add keybindings for accessing SLY's Trace Dialog. This is a minor mode. If called interactively, toggle the `Sly-Trace-Dialog-Shortcut mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `sly-trace-dialog-shortcut-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'sly-trace-dialog-shortcut-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [sly-trace-dialog-shortcut-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks sly-trace-dialog-shortcut-mode-hook sly-trace-dialog-shortcut-mode-on-hook sly-trace-dialog-shortcut-mode-off-hook called-interactively-p any message "Sly-Trace-Dialog-Shortcut mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 19960) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sly-trace-dialog-shortcut-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [sly-trace-dialog-shortcut-mode-map sly-trace-dialog-shortcut-mode-hook variable-documentation put "Hook run after entering or leaving `sly-trace-dialog-shortcut-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sly-trace-dialog-shortcut-mode boundp] 6) #@43 Menu setting traces from anywhere in SLY. (defvar sly-trace-dialog--shortcut-menu nil (#$ . 21929)) (byte-code "\302\301\303\304\305\303\306\307\310\311\312#\310\313\314#\310\315\316#\310\317\320\321\322\fDE#\323\310\324\325 #\257\266\203$\210\326\303 \327$\207" [sly-menu sly-trace-dialog--shortcut-menu easy-menu-do-define nil "Menu setting traces from anywhere in SLY." (eq major-mode 'sly-trace-dialog-mode) (sly-connected-p) "Trace" vector "Toggle trace.." sly-trace-dialog-toggle-trace "Untrace all" sly-trace-dialog-untrace-all "Trace complex spec" sly-trace-dialog-toggle-complex-trace "Open Trace dialog" sly-trace-dialog and not "--" "Regular lisp trace..." sly-toggle-fancy-trace easy-menu-add-item "Documentation"] 18) #@29 Menu for SLY's Trace Dialog (defvar sly-trace-dialog--menu nil (#$ . 22676)) (byte-code "\301\302\303\304\305\306BB\307\310\311\312#\310\313\314#\310\315\316#\310\317\320#\310\321\322 #\257\266\202$\207" [sly-trace-dialog-mode-map easy-menu-do-define sly-trace-dialog--menu "Menu for SLY's Trace Dialog" (eq major-mode 'sly-trace-dialog-mode) and ((memq sly-buffer-connection sly-net-processes)) "SLY-Trace" vector "Refresh traces and progress" sly-trace-dialog-fetch-status "Fetch next batch" sly-trace-dialog-fetch-traces "Clear all fetched traces" sly-trace-dialog-clear-fetched-traces "Toggle details" sly-trace-dialog-hide-details-mode "Toggle autofollow" sly-trace-dialog-autofollow-mode] 15) #@137 Non-nil if Sly-Trace-Dialog-Hide-Details mode is enabled. Use the command `sly-trace-dialog-hide-details-mode' to change this variable. (defvar sly-trace-dialog-hide-details-mode nil (#$ . 23392)) (make-variable-buffer-local 'sly-trace-dialog-hide-details-mode) #@633 Hide details in `sly-trace-dialog-mode' This is a minor mode. If called interactively, toggle the `Sly-Trace-Dialog-Hide-Details mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `sly-trace-dialog-hide-details-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'sly-trace-dialog-hide-details-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312!\204;\313\314!\210\315 \210\316\317\203H\320\202I\321\"\210\322\323!\203k\302 \203]\211\302 \232\203k\324\325\203g\326\202h\327\330#\210\210\331 \210\207" [sly-trace-dialog-hide-details-mode local-minor-modes current-message toggle 1 nil t boundp delq derived-mode-p sly-trace-dialog-mode error "Not a SLY Trace Dialog buffer" sly-trace-dialog--set-hide-details-mode run-hooks sly-trace-dialog-hide-details-mode-hook sly-trace-dialog-hide-details-mode-on-hook sly-trace-dialog-hide-details-mode-off-hook called-interactively-p any message "Sly-Trace-Dialog-Hide-Details mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 23661) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sly-trace-dialog-hide-details-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [sly-trace-dialog-hide-details-mode-map sly-trace-dialog-hide-details-mode-hook variable-documentation put "Hook run after entering or leaving `sly-trace-dialog-hide-details-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sly-trace-dialog-hide-details-mode " Brief" boundp] 6) #@133 Non-nil if Sly-Trace-Dialog-Autofollow mode is enabled. Use the command `sly-trace-dialog-autofollow-mode' to change this variable. (defvar sly-trace-dialog-autofollow-mode nil (#$ . 25834)) (make-variable-buffer-local 'sly-trace-dialog-autofollow-mode) #@654 Automatically inspect trace entries from `sly-trace-dialog-mode' This is a minor mode. If called interactively, toggle the `Sly-Trace-Dialog-Autofollow mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `sly-trace-dialog-autofollow-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'sly-trace-dialog-autofollow-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312!\204;\313\314!\210\315\316\203E\317\202F\320\"\210\321\322!\203h\302 \203Z\211\302 \232\203h\323\324\203d\325\202e\326\327#\210\210\330 \210\207" [sly-trace-dialog-autofollow-mode local-minor-modes current-message toggle 1 nil t boundp delq derived-mode-p sly-trace-dialog-mode error "Not a SLY Trace Dialog buffer" run-hooks sly-trace-dialog-autofollow-mode-hook sly-trace-dialog-autofollow-mode-on-hook sly-trace-dialog-autofollow-mode-off-hook called-interactively-p any message "Sly-Trace-Dialog-Autofollow mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 26095) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sly-trace-dialog-autofollow-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [sly-trace-dialog-autofollow-mode-map sly-trace-dialog-autofollow-mode-hook variable-documentation put "Hook run after entering or leaving `sly-trace-dialog-autofollow-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sly-trace-dialog-autofollow-mode " Autofollow" boundp] 6) #@23 (fn STRING OVERLAY) (defalias 'sly-trace-dialog--insert-and-overlay '(macro . #[514 "\300\301\302\303\304\305BB\306\307\310DD\311BB\257D\207" [save-restriction let ((inhibit-read-only t)) (narrow-to-region (point) (point)) insert ("\n") set make-local-variable quote ((let ((overlay (make-overlay (point-min) (point-max) (current-buffer) nil t))) (move-overlay overlay (overlay-start overlay) (1- (overlay-end overlay))) overlay))] 11 (#$ . 28222)])) (defalias 'sly-trace-dialog--buffer-name #[0 "\300\301\302\303 #\207" [sly-buffer-name :traces :connection sly-current-connection] 4]) #@33 (fn &optional BUFFER-OR-NAME) (defalias 'sly-trace-dialog--live-dialog #[256 "\211\206\302 \303\304!!\205r\211q\210 >)\205\211\207" [sly-buffer-connection sly-net-processes sly-trace-dialog--buffer-name buffer-live-p get-buffer] 5 (#$ . 28821)]) (defalias 'sly-trace-dialog--ensure-buffer #[0 "\305 \306!\206\230\307 r\310!q\210\311\312 \210)\313 \210\212\314 \210\214\311``}\210\315\316\261\210\317\301!\210\320edp\321\311%\322\323!\324!S#\210\211\262*\214\311``}\210\325\316\261\210\317\302!\210\320edp\321\311%\322\323!\324!S#\210\211\262*\214\311``}\210\326\316\261\210\317\303!\210\320edp\321\311%\322\323!\324!S#\210\211\262+\211p)\262\207" [inhibit-read-only sly-trace-dialog--specs-overlay sly-trace-dialog--progress-overlay sly-trace-dialog--tree-overlay sly-buffer-connection sly-trace-dialog--buffer-name sly-trace-dialog--live-dialog sly-current-connection get-buffer-create t erase-buffer sly-trace-dialog-mode buffer-disable-undo "[waiting for the traced specs to be available]" "\n" make-local-variable make-overlay nil move-overlay overlay-start overlay-end "[waiting for some info on trace download progress ]" "[waiting for the actual traces to be available]"] 8]) #@33 (fn COLLAPSED-P TRACE BUTTON) (defalias 'sly-trace-dialog--set-collapsed #[771 "\212\302!>\204\303\304\305D\"\210\211\306I\266\307\203\" A\202$ @\"\210\310\302!>\2046\303\304\305D\"\210\311H\302!>\204I\303\304\305D\"\210\312H\203T\313\202U\314#\210\310\302!>\204g\303\304\305D\"\210\312H\302!>\204z\303\304\305D\"\210\315H\203\205\313\202\206\314#)\207" [cl-struct-sly-trace-dialog--trace-tags sly-trace-dialog--collapse-chars type-of signal wrong-type-argument sly-trace-dialog--trace 12 sly-trace-dialog--go-replace-char-at sly-trace-dialog--hide-unhide 10 8 1 -1 11] 9 (#$ . 30047)]) #@32 (fn START-POS END-POS DELTA) (defalias 'sly-trace-dialog--hide-unhide #[771 "\301\302\211\211\301\211\203\202\262\303\304\302 $\262\305\304\"\206#\306\\\262\307\304\310\211\306V\262F#\210W\203D\302\262\202)\302\207" [inhibit-read-only t nil next-single-property-change sly-trace-dialog--hidden-level get-text-property 0 add-text-properties invisible] 16 (#$ . 30682)]) (defalias 'sly-trace-dialog--set-hide-details-mode #[0 "\301\302\"\210\303\207" [sly-trace-dialog--traces maphash #[514 "\302\303!>\204\304\305\306D\"\210\307H\303!>\204\"\304\305\306D\"\210\310H \203-\311\202.\312#\207" [cl-struct-sly-trace-dialog--trace-tags sly-trace-dialog-hide-details-mode sly-trace-dialog--hide-unhide type-of signal wrong-type-argument sly-trace-dialog--trace 10 8 1 -1] 8 "\n\n(fn --CL-VAR-- TRACE)"] nil] 3]) #@30 (fn FMT-STRING &rest ARGS) (defalias 'sly-trace-dialog--format #[385 "\300\301#\302\303\304GZ]\305\"\301\306#\207" [apply format make-string 2 50 32 "%s%s"] 8 (#$ . 31538)]) #@15 (fn POS FN) (defalias 'sly-trace-dialog--call-maintaining-properties #[514 "\212b\210\302!`\303\211 \210\304`#\210\305!\205\306\223*\266\202)\207" [inhibit-read-only inhibit-point-motion-hooks text-properties-at t add-text-properties markerp nil] 9 (#$ . 31725)]) #@23 (fn POS &body BODY) (defalias 'sly-trace-dialog--maintaining-properties '(macro . #[385 "\300\301\302\303BBDE\207" [sly-trace-dialog--call-maintaining-properties function lambda nil] 8 (#$ . 32009)])) (byte-code "\300\301\302\303#\300\207" [function-put sly-trace-dialog--maintaining-properties lisp-indent-function 1] 4) #@17 (fn POS CHAR) (defalias 'sly-trace-dialog--go-replace-char-at #[514 "\300\301\302\"\"\207" [sly-trace-dialog--call-maintaining-properties make-closure #[0 "\301\302!\210\300c\207" [V0 delete-char 1] 2]] 7 (#$ . 32341)]) #@21 (fn TRACED-SPECS) (defalias 'sly-trace-dialog--open-specs #[257 "\301\302p\303\304\303\305\306  #&\207" [sly-trace-dialog--specs-overlay #[256 "\300\301\"\207" [make-closure #[257 "\301\302\300\303BB\304\"\207" [V0 sly-eval-async cl:progn ((slynk-trace-dialog:report-specs)) #[257 "\300!\207" [sly-trace-dialog--open-specs] 3 "\n\n(fn RESULTS)"]] 5 "\n\n(fn BUTTON)"]] 4 "\n\n(fn &optional FORM)"] sly--call-refreshing nil t make-closure #[0 "\302\303\300G\"\304\305\301 \"\306\307\310\311\"\304\312\301\313!\"\314\261\210\300\315\211:\203H@\262\211A\262\242\262\316\304\317\301\320\321DD!\"\322\323\"\306\261\210A\262\202\315\207" [V0 V1 sly-trace-dialog--format "Traced specs (%s)" sly-make-action-button "[refresh]" "\n" make-string 50 32 "[untrace all]" (slynk-trace-dialog:dialog-untrace-all) "\n\n" nil " " "[untrace]" slynk-trace-dialog:dialog-untrace quote format " %s"] 10]] 12 (#$ . 32571)]) (defvar sly-trace-dialog--fetch-key nil) (defvar sly-trace-dialog--stop-fetching nil) #@48 (fn TOTAL &optional SHOW-STOP-P REMAINING-P) (defalias 'sly-trace-dialog--update-progress #[769 "\301p\302\303\302\304\305\n\n\n$&\207" [sly-trace-dialog--progress-overlay sly--call-refreshing nil t make-closure #[0 "\304 !\302\203 \211\300\\\202\300\305\306\206\307#\310\311\312\"\261\210\211\203B\211Z\211\313V\262\203B\314\315\316\317\"\310\320\321\"\314\315\316\317\"\310\322\323\"\261\210\211\203R\314\315\316\317\"\310\324\325\"\261\210\301\203b\314\315\316\317\"\310\326\327\"\261\210\330c\207" [V0 V1 V2 sly-trace-dialog--traces hash-table-count sly-trace-dialog--format "Trace collection status (%d/%s)" "0" sly-make-action-button "[refresh]" #[257 "\300 \207" [sly-trace-dialog-fetch-progress] 2 "\n\n(fn BUTTON)"] 0 "\n" make-string 50 32 "[fetch next batch]" #[257 "\300\301!\207" [sly-trace-dialog-fetch-traces nil] 3 "\n\n(fn BUTTON)"] "[fetch all]" #[257 "\300\301!\207" [sly-trace-dialog-fetch-traces t] 3 "\n\n(fn BUTTON)"] "[clear]" #[257 "\300 \207" [sly-trace-dialog-clear-fetched-traces] 2 "\n\n(fn BUTTON)"] "[stop]" #[257 "\301\211\207" [sly-trace-dialog--stop-fetching t] 3 "\n\n(fn BUTTON)"] "\n\n"] 10]] 14 (#$ . 33590)]) (define-button-type 'sly-trace-dialog-part :supertype 'sly-part 'sly-button-inspect #[771 "\300\301F\302\303 #\207" [sly-eval-for-inspector slynk-trace-dialog:inspect-trace-part :inspector-name sly-maybe-read-inspector-name] 8 "\n\n(fn TRACE-ID PART-ID TYPE)"] 'sly-button-pretty-print #[771 "\300\301F!\207" [sly-eval-describe slynk-trace-dialog:pprint-trace-part] 8 "\n\n(fn TRACE-ID PART-ID TYPE)"] 'sly-button-describe #[771 "\300\301F!\207" [sly-eval-describe slynk-trace-dialog:describe-trace-part] 8 "\n\n(fn TRACE-ID PART-ID TYPE)"]) #@40 (fn PART-ID PART-TEXT TRACE-ID TYPE) (defalias 'sly-trace-dialog-part-button #[1028 "\300\301\302\303\304\nE\305\306\307\310\311\f!\312\301O!#&\207" [sly--make-text-button nil :type sly-trace-dialog-part part-args part-label format "%s %s" capitalize symbol-name 1] 18 (#$ . 35320)]) (define-button-type 'sly-trace-dialog-spec :supertype 'sly-part 'action 'sly-button-show-source 'sly-button-inspect #[514 "\300\301D\302\303#\207" [sly-eval-for-inspector slynk-trace-dialog:inspect-trace :inspector-name "trace-entries"] 6 "\n\n(fn TRACE-ID SPEC)"] 'sly-button-show-source #[514 "\300\301D\302\"\207" [sly-eval-async slynk-trace-dialog:trace-location #[257 "\300\301\"\207" [sly--display-source-location noerror] 4 "\n\n(fn LOCATION)"]] 5 "\n\n(fn TRACE-ID SPEC)"] 'point-entered #[514 "\301\302\303#\301\302\303#?\205%\211\205%\205%\304\305\"\306\307D\310\311\312\313%\262\207" [sly-trace-dialog-autofollow-mode sly-button-at nil no-error button-get trace-id sly-eval-for-inspector slynk-trace-dialog:inspect-trace :inspector-name "trace-entries" :save-selected-window t] 10 "\n\n(fn BEFORE AFTER)"]) #@32 (fn LABEL TRACE &rest PROPS) (defalias 'sly-trace-dialog-spec-button #[642 "\301!>\204\302\303\304D\"\210\305H\306\307\310\311\312\313\314 \301 !>\204/\302\303\304D\"\210\f\315HAD\316\317\320 \" &\f\207" [cl-struct-sly-trace-dialog--trace-tags type-of signal wrong-type-argument sly-trace-dialog--trace 1 apply sly--make-text-button nil :type sly-trace-dialog-spec trace-id part-args 3 part-label format "Trace entry: %s"] 18 (#$ . 36452)]) #@31 (fn START OFFSET DIRECTION) (defalias 'sly-trace-dialog--draw-tree-lines #[771 "\212\301b\210\211\302=\203\303\202\304\305\211\211\306\302=\203\307\202 \310!\262\\\262eW\203JdW\203Jf>\203J\311\312\"\210b\210\305\262\202\266*\305\207" [inhibit-point-motion-hooks t down (32) (32 96) nil line-beginning-position 2 0 sly-trace-dialog--go-replace-char-at "|"] 10 (#$ . 36919)]) #@21 (fn DEPTH SUFFIX) (defalias 'sly-trace-dialog--make-indent #[514 "\300\301\302S]_\303\"\211\302V\262\205P\207" [make-string 3 0 32] 6 (#$ . 37329)]) #@14 (fn TRACE) (defalias 'sly-trace-dialog--make-collapse-button #[257 "\302\303!>\204\304\305\306D\"\210\307H\203 A\202 @\310\311\"\"\207" [cl-struct-sly-trace-dialog--trace-tags sly-trace-dialog--collapse-chars sly-make-action-button type-of signal wrong-type-argument sly-trace-dialog--trace 12 make-closure #[257 "\302\303\300! >\204\304\305\306\300D\"\210\300\307H?\300#\207" [V0 cl-struct-sly-trace-dialog--trace-tags sly-trace-dialog--set-collapsed type-of signal wrong-type-argument sly-trace-dialog--trace 12] 6 "\n\n(fn BUTTON)"]] 6 (#$ . 37492)]) #@14 (fn TRACE) (defalias 'sly-trace-dialog--insert-trace #[257 "\303!>\204\304\305\306D\"\210\211\307H\303!>\204!\304\305\306D\"\210\310H\303!>\2043\304\305\306D\"\210\311H\312\303!>\204G\304\305\306D\"\210\313H\314\"\312\303!>\204^\304\305\306D\"\210\313H\315\"\316\317\320\"\321\322\323\324&\316\317\325\303\n!>\204\205\304\305\306\fD\"\210 \326H@\"\"\327\303 !>\204\240\304\305\306 D\"\210\330H\331BB\332\303\n!>\204\271\304\305\306\fD\"\210 \333H\334BBD\335\211\211\211\336:\203(@\262\211A\262\242\262\211A\262\242\262@\262\211\335\336:\203@\262\211\337P\262\211 P\262\211P\262\211\340@A@ $P\262\211\341P\262A\262\202\347\266\202P\262A\262\202\306\266\205\342\n #\210\303 !>\204C\304\305\306 D\"\210\211\343\344 I\266\345\261\210c\210\203a\346 !c\210\202~\303 !>\204r\304\305\306 D\"\210\211\347\344 I\266\350c\210\345\341\261\210\303 !>\204\225\304\305\306 D\"\210\211\351\344 I\266\211c\210\303 !>\204\262\304\305\306 D\"\210\211\352\344 I\266\353\303\n!>\204\315\304\305\306\fD\"\210 \343H\322\"\210\n\303\n!>\204\346\304\305\306\fD\"\210 \354HD\335:\203.@\262\211\203'\355\303\f!>\204 \304\305\306D\"\210 \351H\303 !>\204 \304\305\306D\"\210\f\352H\307#\210A\262\202\354\266\3562\307\335\211\322\211\203@ \202A\262\303!>\204R\304\305\306D\"\210\310H\262\205\304\303!>\204j\304\305\306D\"\210\354H\203\276\355\303 !>\204\202\304\305\306D\"\210\f\343H\303!>\204\227\304\305\306D\"\210 \352H\357\303!>\204\255\304\305\306D\"\210\343H\360\"\206\266\361T#\210\362\356\335\"\210\335\262\2027\266\2030\210\203\303!>\204\336\304\305\306 D\"\210\347H\203\363\303!>\204\367\304\305\306\nD\"\210\347H\364\365\n\"\"\210\203%\366\303\n!>\204\304\305\306\fD\"\210 \343H\310G\\\367#\210\203G\366\303\n!>\204;\304\305\306\fD\"\210 \343H\333G\\\370#\210\303 !>\204X\304\305\306 D\"\210\311H?\205\266\335\322\211\203k\n\202}\303!>\204z\304\305\306D\"\210\310H\262\203\263\303!>\204\222\304\305\306D\"\210\211\311\303!>\204\246\304\305\306D\"\210 \352HI\266\335\262\202b\266\335\207" [cl-struct-sly-trace-dialog--trace-tags sly-trace-dialog--traces sly-trace-dialog-hide-details-mode type-of signal wrong-type-argument sly-trace-dialog--trace 1 2 11 sly-trace-dialog--make-indent 6 "`--" " " sly-trace-dialog-spec-button format "%4s" skip t action sly-button-inspect "%s" 3 :arg 4 (" > ") :retval 5 (" < ") nil "" " " sly-trace-dialog-part-button "\n" puthash 7 point-marker " " sly-trace-dialog--make-collapse-button 9 "-" 10 8 set-marker-insertion-type 12 sly-trace-dialog--hide-unhide --cl-block-nil-- get-text-property sly-trace-dialog--hidden-level 0 throw sly-trace-dialog--call-maintaining-properties make-closure #[0 "\302\303!\210\304\300!c\210\305\300! >\204\306\307\310\300D\"\210\300\211\311\312I\207" [V0 cl-struct-sly-trace-dialog--trace-tags delete-char 1 sly-trace-dialog--make-collapse-button type-of signal wrong-type-argument sly-trace-dialog--trace 9 nil] 4] sly-trace-dialog--draw-tree-lines up down] 24 (#$ . 38068)]) #@14 (fn TRACE) (defalias 'sly-trace-dialog--render-trace #[257 "\301\302!>\204\303\304\305D\"\210\306H!\302!>\204#\303\304\305D\"\210\307H\203\321\302!>\2049\303\304\305D\"\210\211\310\302!>\204M\303\304\305D\"\210\310HI\266\302!>\204b\303\304\305D\"\210\311H\302!>\204t\303\304\305D\"\210\312HU\203\221\302!>\204\212\303\304\305D\"\210\211\311\313I\266\302!>\204\240\303\304\305D\"\210\314H\302!>\204\262\303\304\305D\"\210\312H|\210\302!>\204\306\303\304\305D\"\210\312Hb\210\262\202\360\211\203\355\302!>\204\344\303\304\305D\"\210\211\311HTb\210\202\360db\210\315 b\210\316!\207" [cl-struct-sly-trace-dialog--trace-tags sly-trace-dialog--find-trace type-of signal wrong-type-argument sly-trace-dialog--trace 1 2 5 11 8 nil 7 line-beginning-position sly-trace-dialog--insert-trace] 10 (#$ . 41288)]) #@15 (fn TUPLES) (defalias 'sly-trace-dialog--update-tree #[257 "\212\301p\302\211\303\304\305\"&)\207" [sly-trace-dialog--tree-overlay sly--call-refreshing t nil make-closure #[0 "\300\302\211\211\211:\203c@\262\303A@!\262\304\305@AA@AAA@ \3068\262 \203J\307\n! >\204B\310\311\305\fD\"\210 \312HT\202K\313\302\211\211\211\211\211& \262\314!\210A\262\302\262\202\302\207" [V0 cl-struct-sly-trace-dialog--trace-tags nil sly-trace-dialog--find-trace record sly-trace-dialog--trace 4 type-of signal wrong-type-argument 6 0 sly-trace-dialog--render-trace] 19]] 10 (#$ . 42163)]) (defalias 'sly-trace-dialog--clear-local-tree #[0 "\303\300!\210\304\305!\303\301!\210\306 \307p\n\310\311\310\312&\210\313\310!\207" [sly-trace-dialog--fetch-key sly-trace-dialog--traces sly-trace-dialog--tree-overlay make-local-variable cl-gensym "sly-trace-dialog-fetch-key-" make-hash-table sly--call-refreshing nil t #[0 "\300\207" [nil] 1] sly-trace-dialog--update-progress] 7]) #@34 (fn RESULTS &optional RECURSE) (defalias 'sly-trace-dialog--on-new-results #[513 "\211G\302U\203\211A\262\242\202\303\304\305GD\"\211A\262\242\242\205b\306!\306!\230\205b\307!\210\310\205?\211\311V\262\312#\210\205b \313?\205b\211\311V\262\205b\314\315\316DD\317\320\"\"\207" [sly-trace-dialog--fetch-key sly-trace-dialog--stop-fetching 3 signal wrong-number-of-arguments (tuples remaining reply-key) symbol-name sly-trace-dialog--update-tree sly-trace-dialog--update-progress 0 t nil sly-eval-async slynk-trace-dialog:report-partial-tree quote make-closure #[257 "\301\300\"\207" [V0 sly-trace-dialog--on-new-results] 4 "\n\n(fn RESULTS)"]] 11 (#$ . 43162)]) #@36 Refresh just list of traced specs. (defalias 'sly-trace-dialog-fetch-specs #[0 "\300\301\302\"\207" [sly-eval-async (slynk-trace-dialog:report-specs) sly-trace-dialog--open-specs] 3 (#$ . 43864) nil]) (defalias 'sly-trace-dialog-fetch-progress #[0 "\300\301\302\"\207" [sly-eval-async (slynk-trace-dialog:report-total) #[257 "\300!\207" [sly-trace-dialog--update-progress] 3 "\n\n(fn TOTAL)"]] 3 nil nil]) #@54 Refresh just the status part of the SLY Trace Dialog (defalias 'sly-trace-dialog-fetch-status #[0 "\300 \210\301 \207" [sly-trace-dialog-fetch-specs sly-trace-dialog-fetch-progress] 1 (#$ . 44277) nil]) #@76 Clear local and remote traces collected so far (fn &optional INTERACTIVE) (defalias 'sly-trace-dialog-clear-fetched-traces #[256 "\211\203\n\300\301!\205\302\303\304\"\207" [y-or-n-p "Clear all collected and fetched traces?" sly-eval-async (slynk-trace-dialog:clear-trace-tree) #[257 "\300 \207" [sly-trace-dialog--clear-local-tree] 2 "\n\n(fn IGNORED)"]] 4 (#$ . 44486) "p"]) #@26 (fn &optional RECURSE) (defalias 'sly-trace-dialog-fetch-traces #[256 "\302\303\304\305 DD\306\307\"\"\207" [sly-trace-dialog--stop-fetching sly-trace-dialog--fetch-key nil sly-eval-async slynk-trace-dialog:report-partial-tree quote make-closure #[257 "\301\300\"\207" [V0 sly-trace-dialog--on-new-results] 4 "\n\n(fn RESULTS)"]] 6 (#$ . 44873) "P"]) #@41 Hooks run after toggling a dialog-trace (defvar sly-trace-dialog-after-toggle-hook nil (#$ . 45235)) #@177 Toggle the dialog-trace of the spec at point. When USING-CONTEXT-P, attempt to decipher lambdas. methods and other complicated function specs. (fn &optional USING-CONTEXT-P) (defalias 'sly-trace-dialog-toggle-trace #[256 "\211\203 \300 \202 \301 \302\303!\203\303!\202\211\304\305\306\307\310DD!\"\210\311\312!\207" [sly-extract-context sly-symbol-at-point fboundp sly-trace-query sly-message "%s" sly-eval slynk-trace-dialog:dialog-toggle-trace slynk::from-string run-hooks sly-trace-dialog-after-toggle-hook] 9 (#$ . 45343) "P"]) #@48 Untrace all specs traced for the Trace Dialog. (defalias 'sly-trace-dialog-untrace-all #[0 "\300\301\302\"\210\303\304!\207" [sly-eval-async (slynk-trace-dialog:dialog-untrace-all) #[257 "\300\301A@#\207" [sly-message "%s dialog specs and %s regular specs untraced"] 5 "\n\n(fn RESULTS)"] run-hooks sly-trace-dialog-after-toggle-hook] 3 (#$ . 45891) nil]) (defalias 'sly-trace-dialog--update-existing-dialog #[0 "\300 \211\205 r\211q\210\301 )\207" [sly-trace-dialog--live-dialog sly-trace-dialog-fetch-status] 2]) (add-hook 'sly-trace-dialog-after-toggle-hook 'sly-trace-dialog--update-existing-dialog) #@93 Toggle the dialog-trace of the complex spec at point. See `sly-trace-dialog-toggle-trace'. (defalias 'sly-trace-dialog-toggle-complex-trace #[0 "\300\301!\207" [sly-trace-dialog-toggle-trace t] 2 (#$ . 46504) nil]) #@189 Show trace dialog and refresh trace collection status. With optional CLEAR-AND-FETCH prefix arg, clear the current tree and fetch a first batch of traces. (fn &optional CLEAR-AND-FETCH) (defalias 'sly-trace-dialog #[256 "r\301\302 \303\"q\210\304 \210\211\204\204\305 \210\211\205\306\307!)\207" [sly-trace-dialog--fetch-key pop-to-buffer sly-trace-dialog--ensure-buffer (display-buffer-reuse-window (inhibit-same-window . t)) sly-trace-dialog-fetch-status sly-trace-dialog--clear-local-tree sly-trace-dialog-fetch-traces nil] 4 (#$ . 46727) "P"]) (provide 'sly-trace-dialog)