;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\303\304!\210\303\305\306\"\210\205\307!\310\311\312\313\314\315\312\315\211\316\317\320\321& #\315\207" [load-file-name sly-fancy-trace--path sly-fancy-trace--contrib require sly sly-parse "lib/sly-parse" file-name-directory put sly-contribs sly-fancy-trace record sly-contrib nil sly-fancy-trace-init sly-fancy-trace-unload ("Matthias Koeppe " "Tobias C. Rittweiler ") ("GPL")] 13) (defalias 'sly-fancy-trace-init #[0 "\305\306\307\310\311\312\313\"\"\"\210\313\211:\203'@\262\314\315E \316\317$A\262\202 \266\n\320=\2037\321 \2037\322 \210\323 !\f>\204F\324\325\326 D\"\210 \211\327\330I\207" [sly-fancy-trace--path sly-contrib--required-slynk-modules this-command sly-fancy-trace--contrib cl-struct-sly-contrib-tags mapc funcall mapcar sly-contrib--enable cl-remove-if sly-contrib--enabled-p nil cl-adjoin sly-fancy-trace :key cl-first sly-setup sly-connected-p sly-contrib--load-slynk-dependencies type-of signal wrong-type-argument sly-contrib 1 t] 7]) (defalias 'sly-fancy-trace-unload #[0 "\303\211:\203@\262\304\305\306$A\262\202\266\307\310\311\"\210\312\313\314\315\316\317\303\"\"\"\210\320 !\n>\204:\321\322\323 D\"\210 \211\324\303I\207" [sly-contrib--required-slynk-modules sly-fancy-trace--contrib cl-struct-sly-contrib-tags nil cl-remove :key cl-first sly-warning "Disabling contrib %s" sly-fancy-trace mapc funcall mapcar sly-contrib--disable cl-remove-if-not sly-contrib--enabled-p type-of signal wrong-type-argument sly-contrib 1] 7]) #@95 Ask the user which function to trace; SPEC is the default. The result is a string. (fn SPEC) (defalias 'sly-trace-query #[257 "\211\204\300\301!\207\211;\203\300\301\"\207\2119\203\300\301\302!\"\207\211\211@A\303\267\202\341\211\304G\305U\204:\306\307\310GD\"\210\300\301\302!\"\207\211\211G\305U\203O\211\242\202V\306\307\311GD\"\300\301\302!\"\207\211\211G\305U\203j\211\242\202q\306\307\312GD\"\302!\300\301\"\230\203\215\313\314\315Q!\203\215\302\316D!\207\207\304\300\301\302!\"\207\211\211G\317U\203\250\211A\262\242\202\257\306\307\320GD\"\242\302!\302!\300\301\"\230\203\327\313\321\322\315\260!\203\327\302\323E!\207\207\304\300\324\302!\"\207\325\326\"\207" [sly-read-from-minibuffer "(Un)trace: " prin1-to-string #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (setf 41 :defun 66 :defgeneric 93 :defmethod 142 :call 151 :labels 216 :flet 216)) nil 1 signal wrong-number-of-arguments (n) (n) (n) y-or-n-p "(Un)trace also all methods implementing " "? " :defgeneric 2 (caller callee) "(Un)trace only when " " is called by " :call "(Un)trace local function: " error "Don't know how to trace the spec %S"] 16 (#$ . 1642)]) #@47 Toggle trace. (fn &optional USING-CONTEXT-P) (defalias 'sly-toggle-fancy-trace #[256 "\211\203 \300 \202 \301 \302!\303\304\305\306D!\"\207" [sly-extract-context sly-symbol-at-point sly-trace-query sly-message "%s" sly-eval slynk:slynk-toggle-trace] 8 (#$ . 2874) "P"]) (byte-code "\301\302\303#\210\304\305!\207" [sly-prefix-map define-key "" sly-toggle-fancy-trace provide sly-fancy-trace] 4)